Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
executable file 22 lines (19 sloc) 535 Bytes
#!/usr/bin/env perl
use warnings; use strict;
use rlib '.'; use Helper;
my $opts = {
filter => sub{
my ($got_lines, $correct_lines) = @_;
my @result = ();
for my $line (split("\n", $got_lines)) {
$line =~ s/'gcd.pl'/"gcd.pl"/;
push @result, $line;
}
$got_lines = join("\n", @result) . "\n";
return ($got_lines, $correct_lines);
},
run_opts => " --basename --no-highlight -nx --fall-off-end"
};
my $test_prog = prog_file('gcd.pl');
run_debugger("$test_prog 3 5", cmd_file(), undef, $opts);
done_testing();
Something went wrong with that request. Please try again.