diff --git a/S03-operators/buf.t b/S03-operators/buf.t index 579ff9104e..a17aebfb1e 100644 --- a/S03-operators/buf.t +++ b/S03-operators/buf.t @@ -1,7 +1,7 @@ use v6; use Test; -plan 45; +plan 48; ok (~^"foo".encode eqv utf8.new(0x99, 0x90, 0x90)), 'prefix:<~^>'; @@ -114,6 +114,13 @@ ok Buf.new.subbuf(0, 1) eqv Buf.new(), "subbuf on an empty buffer"; $a.push(4); is $a.elems, 4, "Buf .elems correct after push"; is $a[3], 4, "Buf last element correct after push"; + + my @items = 5, 6; + $a.push(@items); + + is $a.elems, 6, "Buf .elems correct after pushing a list"; + is $a[4], 5, "Buf penultimate element correct after push a list"; + is $a[5], 6, "Buf last element correct after push a list"; } # RT #123928