Changeset 18217

Timestamp:

08/25/08 16:18:19 (5 months ago)

Author:

kazuho

Message:

assert user-supplied dtor not called before initialization

Files:

• lang/perl/Sub-SingletonBuilder/trunk/t/00-base.t (modified) (2 diffs)

lang/perl/Sub-SingletonBuilder/trunk/t/00-base.t

@@ -1 @@
-use Test::More tests => 14;
+use Test::More tests => 16;
 
 use strict;
@@ -18 +18 @@
 
 (*ctor2, *dtor) = build_singleton(sub { $c++ }, sub { $c = 1 });
+is(dtor(), undef);
+is($c, 2);
 is(ctor2(), 2);
 is($c, 3);