Changeset 18217
- Timestamp:
- 08/25/08 16:18:19 (5 months ago)
- Files:
-
- 1 modified
-
lang/perl/Sub-SingletonBuilder/trunk/t/00-base.t (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
lang/perl/Sub-SingletonBuilder/trunk/t/00-base.t
r18215 r18217 1 use Test::More tests => 1 4;1 use Test::More tests => 16; 2 2 3 3 use strict; … … 18 18 19 19 (*ctor2, *dtor) = build_singleton(sub { $c++ }, sub { $c = 1 }); 20 is(dtor(), undef); 21 is($c, 2); 20 22 is(ctor2(), 2); 21 23 is($c, 3);
![(please configure the [header_logo] section in trac.ini)](/share/chrome/site/your_project_logo.png)