#!/usr/bin/env perl
use strict;
use warnings;

use Test::More;
use File::Compare qw/compare/;
use File::Temp qw/tempfile/;
use FindBin;


sub compareCbC2C {
  my ($targetFile, $wantCFile) = @_;

  subtest "generate_stub.pl $targetFile" => sub {
    my ($_fh, $testOutputFile) = tempfile();
    close $_fh;
    system("perl", "generate_stub.pl", "-o", $testOutputFile, $targetFile);

    is(compare($wantCFile, $testOutputFile), 0, "$wantCFile eq  $testOutputFile");
  };

}

compareCbC2C('examples/boundedBuffer/BoundedBuffer.cbc', "$FindBin::Bin/BoundedBuffer.c");
compareCbC2C('examples/twice/main.cbc', "$FindBin::Bin/testfiles/twice/main.c");

done_testing;