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