Merge pull request #28 from virtualsue/master

More minor updates

Author: virtualsue

categories/cookbook/01strings/01-01substrings.pl

@@ -10,7 +10,7 @@
 
 =end pod
 
-my ($string, $offset, $count) = ('Rakudo is da bomb', 2, 5);
+my ($string, $offset, $count) = ('Rakudo is da bomb', 2, 7);
 say $string.substr($offset, $count);
 say $string.substr($offset);
 

categories/cookbook/01strings/01-04converting-values.pl

@@ -19,7 +19,7 @@
 say $copyright ~ " : " ~ $copyright.ord ~ " : " ~ $copyright.ord.chr;
 
 $char = 'foo';
-# ord returns the codepoint of the first char in a string
-say $char ~ " : " ~ $char.ord;
+# ords returns the codepoints of all char in a string
+say $char ~ " : " ~ $char.ords;
 
 # vim: expandtab shiftwidth=4 ft=perl6

categories/cookbook/01strings/01-05namedunicode.pl

@@ -10,6 +10,8 @@
 
 say "\c[REGISTERED SIGN]";
 
-say uniname("\x1f63E"); # POUTING CAT FACE
+# POUTING CAT FACE
+"\x1f63E".say;
+"\x1f63E".uniname.say;
 
 # vim: expandtab shiftwidth=4 ft=perl6

categories/cookbook/01strings/01-13upper-lower-case.pl

@@ -6,16 +6,18 @@
 
 =AUTHOR stmuk
 
-You have a string and what to upper/lower case it
+You have a string and want to upper/lower case it
 
 =end pod
 
 my $string = "the cat sat on the mat";
 
 say $string=$string.uc; # THE CAT SAT ON THE MAT
 
-say $string.=lc; # the cat sat on the mat
+say $string.=lc;        # the cat sat on the mat
 
-say $string.wordcase; # The Cat Sat On The Mat
+say $string.wordcase;   # The Cat Sat On The Mat
+
+$string.tc.say;         # The cat sat on the mat
 
 # vim: expandtab shiftwidth=4 ft=perl6

t/categories/cookbook/01strings.t

@@ -14,7 +14,8 @@ subtest {
 Hello
 Hello
 Hello
-HelloWorld!
+Hello World!
+Hello World!
 Hello World!
 This is $string: a scalar holding a String
 $string is Str
@@ -58,9 +59,9 @@ subtest {
 
     my $example-name = "01-01substrings.pl";
     my $expected-output = q:to/EOD/;
-    gs is
-    gs is da bomb
-    Pugilism ain't for wimps
+    kudo is
+    kudo is da bomb
+    Radiators are nice in winter
     EOD
 
     my $output = run-example($example-name);
@@ -85,10 +86,11 @@ subtest {
 
     my $example-name = "01-04converting-values.pl";
     my $expected-output = q:to/EOD/;
-    97
-    a
-    102
-    EOD
+97
+a
+© : 169 : ©
+foo : 102 111 111
+EOD
 
     my $output = run-example($example-name);
     is($output, $expected-output, $example-name);
@@ -100,6 +102,7 @@ subtest {
     my $example-name = "01-05namedunicode.pl";
     my $expected-output = q:to/EOD/;
     ®
+    😾
     POUTING CAT FACE
     EOD
 
@@ -128,6 +131,7 @@ subtest {
     THE CAT SAT ON THE MAT
     the cat sat on the mat
     The Cat Sat On The Mat
+    The cat sat on the mat
     EOD
 
     my $output = run-example($example-name);