[p5sagit/p5-mst-13.2.git] / atarist / test / tbinmode

open(FP, ">bintest") || die "Can't open bintest for write\n";
binmode FP;
print FP pack("C*", 0xaa, 0x55, 0xaa, 0x55,
                    0xff, 0x0d, 0x0a);
close FP;

open(FP, "<bintest") || die "Can't open bintest for read\n";
binmode FP;
@got = unpack("C*", <FP>);
close FP;
printf "expect:\t7 elements: aa 55 aa 55 ff 0d 0a\n";
printf "got:\t%d elements: %x %x %x %x %x %02x %02x\n", $#got+1-$[, @got;
Commit	Line	Data
2b69d0c2	1	open(FP, ">bintest") \|\| die "Can't open bintest for write\n";
	2	binmode FP;
	3	print FP pack("C*", 0xaa, 0x55, 0xaa, 0x55,
	4	0xff, 0x0d, 0x0a);
	5	close FP;
	6
	7	open(FP, "<bintest") \|\| die "Can't open bintest for read\n";
	8	binmode FP;
	9	@got = unpack("C*", <FP>);
	10	close FP;
	11	printf "expect:\t7 elements: aa 55 aa 55 ff 0d 0a\n";
	12	printf "got:\t%d elements: %x %x %x %x %x %02x %02x\n", $#got+1-$[, @got;