1#!perl 2use strict; 3use warnings; 4use Test::More tests => 3; 5use Test::Expect; 6 7expect_run 8( 9 command => "$^X -Ilib -MCarp::REPL=noprofile t/scripts/07-frame.pl", 10 prompt => '$ ', 11 quit => 'exit', 12); 13 14expect_send(':u'); 15expect_like(qr{\bNow at t/scripts/07-frame\.pl:9 \(frame 1\)\.}, ":up as first command doesn't work"); 16 17 18