|
2 | 2 |
|
3 | 3 | use Test;
|
4 | 4 |
|
5 |
| -plan 40; |
| 5 | +plan 38; |
6 | 6 |
|
7 | 7 | # currently deprecated core features
|
8 | 8 |
|
@@ -315,40 +315,6 @@ Please use the :delete adverb with postcircumfix:<\{ }> instead.
|
315 | 315 | TEXT
|
316 | 316 | } #1
|
317 | 317 |
|
318 |
| -# Order::Decrease |
319 |
| -#?rakudo skip 'Could not create deprecated Order::Decrease' |
320 |
| -#?niecza skip 'is DEPRECATED NYI' |
321 |
| -#?pugs skip 'is DEPRECATED NYI' |
322 |
| -#?rakudo.jvm skip 'tracebacks in deprecations' |
323 |
| -{ |
324 |
| - $line = $?LINE; Order::Decrease; |
325 |
| - is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'deprecation Order::Decrease'; |
326 |
| -Saw 1 call to deprecated code during execution. |
327 |
| -================================================================================ |
328 |
| -Sub Decrease (from Order) called at: |
329 |
| - $*PROGRAM, line $line |
330 |
| -Please use More instead. |
331 |
| --------------------------------------------------------------------------------- |
332 |
| -TEXT |
333 |
| -} #1 |
334 |
| -
|
335 |
| -# Order::Increase |
336 |
| -#?rakudo skip 'Could not create deprecated Order::Increase' |
337 |
| -#?niecza skip 'is DEPRECATED NYI' |
338 |
| -#?pugs skip 'is DEPRECATED NYI' |
339 |
| -#?rakudo.jvm skip 'tracebacks in deprecations' |
340 |
| -{ |
341 |
| - $line = $?LINE; Order::Increase; |
342 |
| - is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'deprecation Order::Increase'; |
343 |
| -Saw 1 call to deprecated code during execution. |
344 |
| -================================================================================ |
345 |
| -Sub Increase (from Order) called at: |
346 |
| - $*PROGRAM, line $line |
347 |
| -Please use Less instead. |
348 |
| --------------------------------------------------------------------------------- |
349 |
| -TEXT |
350 |
| -} #1 |
351 |
| -
|
352 | 318 | # Set
|
353 | 319 | #?niecza skip 'is DEPRECATED NYI'
|
354 | 320 | #?pugs skip 'is DEPRECATED NYI'
|
|
0 commit comments