(Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).
| niceslice.t (PDL-2.080) | : | niceslice.t (PDL-2.081) |
|---|
| | |
| skipping to change at line 239 | | skipping to change at line 239 |
|---|
| my $expected = q{ | | my $expected = q{ |
| CREATE TABLE $table ( | | CREATE TABLE $table ( |
| CHECK ( yr = $yr ) | | CHECK ( yr = $yr ) |
| ) INHERITS ($schema.master_table) | | ) INHERITS ($schema.master_table) |
| }; | | }; |
| my $got = translate_and_run 'q{ | | my $got = translate_and_run 'q{ |
| CREATE TABLE $table ( | | CREATE TABLE $table ( |
| CHECK ( yr = $yr ) | | CHECK ( yr = $yr ) |
| ) INHERITS ($schema.master_table) | | ) INHERITS ($schema.master_table) |
| }'; | | }'; |
|
| is $got, $expected, 'NiceSlice leaves strings along'; | | is $got, $expected, 'NiceSlice leaves strings alone'; |
| } | | } |
| | |
| { | | { |
| use PDL::NiceSlice; | | use PDL::NiceSlice; |
| if (!$::UC) { | | if (!$::UC) { |
| my $data = join '', <DATA>; | | my $data = join '', <DATA>; |
| like $data, qr/we've got data/, "we've got data"; | | like $data, qr/we've got data/, "we've got data"; |
| } | | } |
| } | | } |
| | |
| | | |
| End of changes. 1 change blocks. |
|---|
| 1 lines changed or deleted | | 1 lines changed or added |
|---|
"Fossies" - the Fresh Open Source Software Archive 