Lines Matching refs:ok
4 use Test qw(plan ok);
9 ok(dumpf("foo", sub { return { dump => "x" }}), 'x');
10 ok(dumpf("foo", sub { return { object => "x" }}), '"x"');
11 ok(dumpf("foo", sub { return { comment => "x" }}), "# x\n\"foo\"");
12 ok(dumpf({}, sub { return { bless => "x"}}), "bless({}, \"x\")");
13 ok(dumpf({a => 1, b => 2}, sub { return { hide_keys => ["b"] }}), "{ a => 1 }");
14 ok(dumpf("foo", sub { return }), '"foo"');
17 ok(dumpf("foo", sub {
20 ok($$obj, "foo");
21 ok($ctx->object_ref, $obj);
22 ok($ctx->class, "");
23 ok(!$ctx->object_isa("SCALAR"));
24 ok($ctx->container_class, "");
25 ok(!$ctx->container_isa("SCALAR"));
26 ok($ctx->container_self, "");
27 ok(!$ctx->is_ref);
28 ok(!$ctx->is_blessed);
29 ok(!$ctx->is_array);
30 ok(!$ctx->is_hash);
31 ok( $ctx->is_scalar);
32 ok(!$ctx->is_code);
33 ok($ctx->depth, 0);
36 ok($cb_count, 1);
39 ok(dumpf(bless({ a => 1, b => bless {}, "Bar"}, "Foo"), sub {
43 ok(ref($obj), "Bar");
44 ok($ctx->object_ref, $obj);
45 ok($ctx->class, "Bar");
46 ok($ctx->object_isa("Bar"));
47 ok(!$ctx->object_isa("Foo"));
48 ok($ctx->container_class, "Foo");
49 ok($ctx->container_isa("Foo"));
50 ok($ctx->container_self, '$self->{b}');
51 ok($ctx->is_ref);
52 ok($ctx->is_blessed);
53 ok(!$ctx->is_array);
54 ok($ctx->is_hash);
55 ok(!$ctx->is_scalar);
56 ok(!$ctx->is_code);
57 ok($ctx->depth, 1);
60 ok($cb_count, 3);