Add default value for into RPA.join to follow Perl6 setting closely

perl6 · Jan 16, 2011 · e657b28 · e657b28
1 parent b1a8289
commit e657b28
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/src/setting/ResizablePMCArray.pm b/src/setting/ResizablePMCArray.pm
@@ -31,7 +31,7 @@ module ResizablePMCArray {
     Return all elements joined by $sep.
     =end item
 
-    method join ($separator) {
+    method join ($separator = '') {
         pir::join($separator, self);
     }
 

diff --git a/t/setting/01-resizablepmcarray.t b/t/setting/01-resizablepmcarray.t
@@ -5,14 +5,16 @@ pir::load_bytecode('nqp-setting.pbc');
 my @array := <0 1 2>;
 my @reversed := @array.reverse();
 
-plan(10);
+plan(11);
 
 ok( @reversed[0] == 2, 'First element correct');
 ok( @reversed[1] == 1, 'Second element correct');
 ok( @reversed[2] == 0, 'Third element correct');
 
 my $join := @array.join('|');
 ok( $join eq '0|1|2', 'Join elements');
+$join := @array.join();
+ok( $join eq '012', 'Join with default separator');
 
 ok( join(':', 'foo', 'bar', 'baz') eq 'foo:bar:baz', 'Join as standalone function');