|
Revision 22090, 0.6 kB
(checked in by lwall, 4 months ago)
|
|
[t] clean up various calls to try, system, etc
|
-
Property svn:mime-type set to
text/plain; charset=UTF-8
-
Property svn:eol-style set to
native
|
| Line | |
|---|
| 1 | use v6; |
|---|
| 2 | |
|---|
| 3 | use Test; |
|---|
| 4 | |
|---|
| 5 | plan 6; |
|---|
| 6 | |
|---|
| 7 | is(try {my $t; $t = (1 == 1) ?? "true" !! "false"; $t}, "true", 'my $t; $t = (cond) ?? !! gets value from ?? !!, not conds bool'); |
|---|
| 8 | is(try {my $t; $t = (1 == 0) ?? "true" !! "false"; $t}, "false", '.. also for false'); |
|---|
| 9 | is(try {our $t; $t = (1 == 1) ?? "true" !! "false"; $t}, "true", 'truth with "our"'); |
|---|
| 10 | is(try {our $t; $t = (1 == 0) ?? "true" !! "false"; $t}, "false", '... and false'); |
|---|
| 11 | is(try {my $t = (1 == 1) ?? "true" !! "false"; $t}, "true", 'my $t = (cond) ?? !! gets value from ?? !!'); |
|---|
| 12 | is(try {my $t = (1 == 0) ?? "true" !! "false"; $t}, "false", '.. also for false'); |
|---|
