10 print "not " unless length("") == 0;
13 print "not " unless length("abc") == 3;
17 print "not " unless length() == 6;
20 # Okay, so that wasn't very challenging. Let's go Unicode.
25 print "not " unless length($a) == 1;
30 print "not " unless $a eq "\x41" && length($a) == 1;
38 print "not " unless length($a) == 1;
43 print "not " unless $a eq "\xc2\x80" && length($a) == 2;
51 print "not " unless length($a) == 1;
56 print "not " unless $a eq "\xc4\x80" && length($a) == 2;
62 my $a = "\x{100}\x{80}";
64 print "not " unless length($a) == 2;
69 print "not " unless $a eq "\xc4\x80\xc2\x80" && length($a) == 4;
75 my $a = "\x{80}\x{100}";
77 print "not " unless length($a) == 2;
82 print "not " unless $a eq "\xc2\x80\xc4\x80" && length($a) == 4;