1#!perl
2use strict;
3use warnings;
4use Test::More tests => 26;
5use Test::Expect;
6
7expect_run
8(
9    command => "$^X -Ilib -MCarp::REPL=noprofile t/scripts/09-args.pl",
10    prompt  => '$ ',
11    quit    => 'exit',
12);
13
14expect_send('1 + 1');
15expect_like(qr/\b2\b/, 'in the REPL');
16
17expect_send('@$_a');
18expect_like(qr/\b10\b/);
19
20expect_send(':u');
21expect_send('@$_a');
22expect_like(qr/\b10\b/);
23
24expect_send(':u');
25expect_send('sort @$_a');
26expect_like(qr/\b1 2 3 4\b/);
27
28expect_send(':u');
29expect_send('sort @$_a');
30expect_like(qr/\b1 2 3 4 Be H He Li\b/);
31
32expect_send(':u');
33expect_send('@$_a');
34expect_like(qr/\bI is I\b/);
35
36expect_send(':u');
37expect_send('@$_a');
38expect_like(qr/\bI I\b/);
39
40expect_send(':u');
41expect_send('"<@$_a>"');
42expect_like(qr/^<I>$/m);
43
44expect_send(':u');
45expect_send('"<@$_a>"');
46expect_like(qr/^<>$/m);
47
48