use Test::More; use Test::Deep; my @input = (5, 8, 12, 9, 78, 1, 5); my @expected = (1, 5, 5, 8, 9, 12, 78); my $i_file = "input.txt"; my $o_file = "output.txt"; my $bin = '/bin/c_program'; write_sample_file(\@input, $i_file); # run the C program system "$bin < $i_file > $o_file"; my @processed = get_data($o_file); cmp_deeply (\@processed, \@expected, 'results are sorted');