Source

perl-Devel-LineTrace / module / t / 01twotraces.t

Full commit
#!/usr/bin/perl -w

use strict;

use Test::More tests => 1;

$ENV{'PERL5DB_LT'} = "t/input/twotraces.txt";

my $output = `perl -d:LineTrace t/scripts/script1.pl`;

ok($output eq "\$i=5\n\$j=150\n");