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