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