1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
use Test::More 'no_plan';
use List::Maker;
# LIST CONTEXT...
is_deeply [< a word list >], ['a','word','list'] => '< a word list >';
is_deeply [< >], [] => '< >';
is_deeply [< "a word" list >], ['a word','list'] => '< "a word" list >';
is_deeply [< 'a word' list >], ['a word','list'] => '< \'a word\' list >';
is_deeply [< "o'word" list >], ['o\'word','list'] => '< "o\'word" list >';
is_deeply [< 'u"word' list >], ['u"word','list'] => '< \'u"word\' list >';
# SCALAR CONTEXT...
is < a word list >."", 'a, word, and list' => '< a word list >';
is < "a word" list >."", 'a word and list' => '< "a word" list >';
is < 'a word' list >."", 'a word and list' => '< \'a word\' list >';
is < "o'word" list >."", 'o\'word and list' => '< "o\'word" list >';
is < 'u"word' list >."", 'u"word and list' => '< \'u"word\' list >';
is < word >."", 'word' => '< word >';
is < >."", '' => '< >';
|
