tests for Buf.subbuf

Raku · Mar 1, 2012 · 844bcb2 · 844bcb2
1 parent d26054b
commit 844bcb2
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/S03-operators/buf.t b/S03-operators/buf.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 23;
+plan 25;
 
 ok (~^"foo".encode eqv Buf.new(0x99, 0x90, 0x90)), 'prefix:<~^>';
 
@@ -36,3 +36,6 @@ is  $b cmp $a, Order::Decrease, 'cmp (larger)';
 is_deeply Buf.new(1, 2, 3) ~ Buf.new(4, 5), Buf.new(1, 2, 3, 4, 5), '~ concatenates';
 nok Buf.new(), 'empty Buf is false';
 ok  Buf.new(1), 'non-empty Buf is true';
+
+ok Buf.new(1, 2, 3, 4).subbuf(2) eqv Buf.new(3, 4), '.subbuf(start)';
+ok Buf.new(1, 2, 3, 4).subbuf(1, 2) eqv Buf.new(2, 3), '.subbuf(start, len)';