diff options
| author | Robin Barker <Robin.Barker@npl.co.uk> | 2009-02-25 09:41:52 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-02-25 09:41:52 +0100 |
| commit | c0f08d2c3ac00e3462618e9b7575fa42baf6064b (patch) | |
| tree | fd616f94a8d684b775b8213aa7e14ac713b9c27b /t/lib/deprecate | |
| parent | 15e5e8668b86d4e43615103f790f9c1a736045dd (diff) | |
| download | perl-c0f08d2c3ac00e3462618e9b7575fa42baf6064b.tar.gz | |
test script for deprecate.pm
First pass at tests for deprecate.pm.
Had to modify the module to provide an interface for testing - need to
provide fake install directories, but deprecated reads from
%Config::Config, which is read only.
Diffstat (limited to 't/lib/deprecate')
| -rw-r--r-- | t/lib/deprecate/Deprecated.pm | 7 | ||||
| -rw-r--r-- | t/lib/deprecate/Optionally.pm | 7 |
2 files changed, 14 insertions, 0 deletions
diff --git a/t/lib/deprecate/Deprecated.pm b/t/lib/deprecate/Deprecated.pm new file mode 100644 index 0000000000..5eb1220516 --- /dev/null +++ b/t/lib/deprecate/Deprecated.pm @@ -0,0 +1,7 @@ +package Deprecated; +use strict; + +use deprecate; + +q(Harmless); + diff --git a/t/lib/deprecate/Optionally.pm b/t/lib/deprecate/Optionally.pm new file mode 100644 index 0000000000..1e24542a22 --- /dev/null +++ b/t/lib/deprecate/Optionally.pm @@ -0,0 +1,7 @@ +package Optionally::Deprecated; +use strict; + +use if $] >= 5.011, 'deprecate'; + +q(Mostly harmless); + |