### ----------------------------------------------------
### -- P5pack
### -- Licenses: Artistic-2.0
### -- Authors: Elizabeth Mattijsen
### -- File: t/04-single-unpack.rakutest
### ----------------------------------------------------
use Test;
use P5pack;

plan 2;

my $s1 = 'ABCD';

is unpack('a4', Buf.new(0x41, 0x42, 0x43, 0x44)), $s1;
is unpack(a4 => Buf.new(0x41, 0x42, 0x43, 0x44)), $s1;

# vim: expandtab shiftwidth=4


