Lines Matching refs:pack

57 print "not " unless ord(pack("C", 0xdf)) == 0x3af;
60 # we didn't break pack/unpack, I hope
62 print "not " unless unpack("C", pack("C", 0xdf)) == 0xdf;
69 print "not " unless unpack("U", pack("U", 0xdf)) == 0xdf;
110     pack("C*", 0xDF ),       # byte
111     pack("C*", 0xDF, 0x20),  # ($bytes2 cmp $U) > 0
112     pack("U*", 0x3AF),       # $U eq $byte
113     pack("U*", 0xDF ),       # $Ub would eq $bytev w/o use encoding
114     pack("U*", 0x3B1),       # ($g1 cmp $byte) > 0; === chr(0xe1)
115     pack("U*", 0x3AF, 0x20), # ($g2 cmp $byte) > 0;
116     pack("U*", 0x3AB),       # ($l  cmp $byte) < 0; === chr(0xdb)
160 $u = $v = $v2 = pack("C*", 0xDF);
172 $u = $v = pack("C*", 0xDF);
181 $byte=pack("C*", 0xDF);
183 print "not " unless pack("U*", 0x3AF) eq $byte;
189 print "not " unless ((pack("U*", 0x3B0)       cmp $byte) ==  1) &&
190                     ((pack("U*", 0x3AE)       cmp $byte) == -1) &&
191                     ((pack("U*", 0x3AF, 0x20) cmp $byte) ==  1) &&
192                 ((pack("U*", 0x3AF) cmp pack("C*",0xDF,0x20))==-1);