Commit | Line | Data |
49cb94c6 |
1 | print "1..6\n"; |
2 | |
3 | my $foo = "foo"; |
4 | |
5 | print "not " unless qu(abc$foo) eq "abcfoo"; |
6 | print "ok 1\n"; |
7 | |
8 | # qu is always Unicode, even in EBCDIC, so \x41 is 'A' and \x{61} is 'a'. |
9 | |
10 | print "not " unless qu(abc\x41) eq "abcA"; |
11 | print "ok 2\n"; |
12 | |
13 | print "not " unless qu(abc\x{61}$foo) eq "abcafoo"; |
14 | print "ok 3\n"; |
15 | |
16 | print "not " unless qu(\x{41}\x{100}\x61\x{200}) eq "A\x{100}a\x{200}"; |
17 | print "ok 4\n"; |
18 | |
19 | print "not " unless join(" ", unpack("C*", qu(\x80))) eq "194 128"; |
20 | print "ok 5\n"; |
21 | |
22 | print "not " unless join(" ", unpack("C*", qu(\x{100}))) eq "196 128"; |
23 | print "ok 6\n"; |
24 | |