Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Add missing semicolons
  • Loading branch information
hoelzro committed Aug 2, 2014
1 parent 9db0738 commit 8c77c44
Showing 1 changed file with 10 additions and 10 deletions.
20 changes: 10 additions & 10 deletions S26-documentation/why-leading.t
Expand Up @@ -323,37 +323,37 @@ is ~$=pod[$pod_index++], "Bob";
my $rule = G.^find_method("R");
is $rule.WHY.contents, "rule";
ok $rule.WHY.WHEREFORE == Regex, "rule";
is G.WHY.leading, "rule"
is G.WHY.leading, "rule";
ok $=pod[$pod_index].WHEREFORE === Regex;
is ~$=pod[$pod_index++], "rule";

my $token = G.^find_method("T");
is $rule.WHY.contents, "token";
ok $rule.WHY.WHEREFORE == Regex, "token";
is G.WHY.leading, "token"
is G.WHY.leading, "token";
ok $=pod[$pod_index].WHEREFORE === Regex;
is ~$=pod[$pod_index++], "token";

my $regex = G.^find_method("X");
is $rule.WHY.contents, "regex";
ok $rule.WHY.WHEREFORE == Regex, "regex";
is G.WHY.leading, "regex"
is G.WHY.leading, "regex";
ok $=pod[$pod_index].WHEREFORE === Regex;
is ~$=pod[$pod_index++], "regex";

#| solo
proto sub foo() { }

is &foo.WHY.contents, "solo";
ok &foo.WHY.WHEREFORE === Sub, "proto sub"
ok &foo.WHY.WHEREFORE === Sub, "proto sub";
ok $=pod[$pod_index].WHEREFORE === Sub, "\$=pod proto sub";
is ~$=pod[$pod_index++], "solo";

#| no proto
multi sub bar() { }

is &bar.WHY.contents, "no proto";
ok &bar.WHY.WHEREFORE === Sub, "multi sub"
ok &bar.WHY.WHEREFORE === Sub, "multi sub";
ok $=pod[$pod_index].WHEREFORE === Sub, "\$=pod multi sub";
is ~$=pod[$pod_index++], "no proto";

Expand All @@ -365,9 +365,9 @@ multi sub baz(Int) { }
my ($baz1,$baz2) = &baz.candidates;

is $baz1.WHY.contents, "variant A";
ok $baz1.WHY.WHEREFORE === Sub, "multi sub"
ok $baz1.WHY.WHEREFORE === Sub, "multi sub";
is $baz2.WHY.contents, "variant B";
ok $baz2.WHY.WHEREFORE === Sub, "multi sub"
ok $baz2.WHY.WHEREFORE === Sub, "multi sub";

ok $=pod[$pod_index].WHEREFORE === Sub, "\$=pod multi sub";
is ~$=pod[$pod_index++], "variant A";
Expand All @@ -383,16 +383,16 @@ multi sub greeble(Int) { }
multi sub greeble(Str) { }

is &greeble.WHY.contents, "proto", "proto has its own WHY";
ok &greeble.WHY.WHEREFORE === Sub, "proto sub"
ok &greeble.WHY.WHEREFORE === Sub, "proto sub";
ok $=pod[$pod_index].WHEREFORE === Sub, "\$=pod proto sub";
is ~$=pod[$pod_index++], "proto", "\$=pod proto has its own WHY";

my ($greeble1,$greeble2) = &greeble.candidates;

is $greeble1.WHY.contents, "alpha";
ok $greeble1.WHY.WHEREFORE === Sub, "multi sub A"
ok $greeble1.WHY.WHEREFORE === Sub, "multi sub A";
is $greeble2.WHY.contents, "beta";
ok $greeble2.WHY.WHEREFORE === Sub, "multi sub B"
ok $greeble2.WHY.WHEREFORE === Sub, "multi sub B";

ok $=pod[$pod_index].WHEREFORE === Sub, "\$=pod multi sub A";
is ~$=pod[$pod_index++], "alpha";
Expand Down

0 comments on commit 8c77c44

Please sign in to comment.