diff options
| author | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-04-29 13:02:27 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-04-29 13:02:27 +0200 |
| commit | 6d72cea07e141ecf607ab0546300c437af9cb85e (patch) | |
| tree | 6920d88bb1734942f4afb7da48b353f698ffb6a8 /dist/Safe | |
| parent | 554545435d592fa5ae8b79e031e59e9b09d6ff69 (diff) | |
| download | perl-6d72cea07e141ecf607ab0546300c437af9cb85e.tar.gz | |
Revert "Un-TODO warning test"
This reverts commit efbe327085cc15510d8c261772e9ac21be3635de.
Diffstat (limited to 'dist/Safe')
| -rw-r--r-- | dist/Safe/t/safesort.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/dist/Safe/t/safesort.t b/dist/Safe/t/safesort.t index 2f1c204439..3396f1e10f 100644 --- a/dist/Safe/t/safesort.t +++ b/dist/Safe/t/safesort.t @@ -51,5 +51,6 @@ is $@, 42, 'successful closure call should not alter $@'; local $SIG{__WARN__} = sub { $warns++ }; ok !eval { $die_func->("died\n"); 1 }, 'should die'; is $@, "died\n", '$@ should be set correctly'; + local $TODO = "Shouldn't warn"; is $warns, 0; } |