1#!perl 2use strict; 3use warnings; 4use Test::More tests => 11; 5use Test::Expect; 6 7# convenient test file for making sure we can still define vars and frob them 8 9expect_run 10( 11 command => "$^X -Ilib -MCarp::REPL=noprofile t/scripts/01-trivial.pl", 12 prompt => '$ ', 13 quit => 'exit', 14); 15 16expect_send('1 + 1'); 17expect_like(qr/\b2\b/); 18 19expect_send('my $string = q{hi}'); 20expect_like(qr/\bhi\b/); 21 22expect_send('$string .= q{ya}'); 23expect_like(qr/\bhiya\b/); 24 25expect_send('$string .= q{ck}'); 26expect_like(qr/\bhiyack\b/); 27 28expect_send('$string =~ y/ia/eu/; $string'); 29expect_like(qr/\bheyuck\b/); 30 31