diff options
| author | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-04-29 13:02:27 +0200 |
|---|---|---|
| committer | Jesse Vincent <jesse@bestpractical.com> | 2010-05-13 17:59:24 -0400 |
| commit | 41f5edcf34994a7fecc17228dfa4bbfd30818c61 (patch) | |
| tree | 8d273b6464b743201855d5659a10302610f7ceea | |
| parent | a46e80ed642ab023aa78575b0e7f7bb22bb05efe (diff) | |
| download | perl-41f5edcf34994a7fecc17228dfa4bbfd30818c61.tar.gz | |
Revert "Un-TODO warning test"
This reverts commit efbe327085cc15510d8c261772e9ac21be3635de.
| -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; } |