X::Buf::Pack

Raku · May 27, 2012 · 88dbaa7 · 88dbaa7
1 parent eff5942
commit 88dbaa7
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -38,7 +38,9 @@ sub throws_like($code, $ex_type, *%matcher) {
     }
 }
 
-throws_like { Buf.new().Str }, X::Buf::AsStr, method => 'Str';
+throws_like { Buf.new().Str }, X::Buf::AsStr, method => 'Str';;
+throws_like 'pack("B",  1)',       X::Buf::Pack, directive => 'B';
+throws_like 'Buf.new.unpack("B")', X::Buf::Pack, directive => 'B';
 throws_like 'my class Foo { method a() { $!bar } }', X::Attribute::Undeclared,
             name => '$!bar', package-name => 'Foo';
 throws_like 'sub f() { $^x }', X::Signature::Placeholder,