https://perl5.git.perl.org / perl5.git / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 1 | use strict; use warnings; | |
| 2 | use Test::More; | |
| 3 | ||
| 4 | use lib 't/lib'; | |
| 5 | use DBMTest 'Memoize::Storable', extra_tests => 1; | |
| 6 | ||
| 7 | test_dbm $file; | |
| 8 | cleanup; | |
| 9 | ||
| 10 | SKIP: { | |
| 11 | skip "skip Storable $Storable::VERSION too old for last_op_in_netorder", 1 | |
| 12 | unless eval { Storable->VERSION('0.609') }; | |
| 13 | { tie my %cache, 'Memoize::Storable', $file, 'nstore' or die $! } | |
| 14 | ok Storable::last_op_in_netorder(), 'nstore option works'; | |
| 15 | cleanup; | |
| 16 | } |