#!/usr/bin/perl
use strict;
use warnings;
use blib;
use Test::More;
use t::Common;
# work around win32 console buffering
Test::More->builder->failure_output(*STDOUT)
if ($^O eq 'MSWin32' && $ENV{HARNESS_VERBOSE});
plan tests => TC() + TN() + 8;
my $class = "t::Object::Complete";
my $o = test_constructor($class, name => "Charlie");
SKIP: {
skip "because we don't have a $class object", TN() + 8
unless $o;
is( $o->name, "Charlie", "New object is named 'Charlie'");
is( $o->get_count, 1, "Count of $class is correct");
my $p = test_new($class, name => "Curly");
is( $p->name, "Curly", "New object is named 'Curly'");
is( $p->get_count, 2, "Count of $class is correct");
$p = undef;
ok( ! defined $p, "Curly destroyed" );
is( $o->get_count, 1, "Count of $class is correct");
$o = undef;
ok( ! defined $o, "Charlie destroyed" );
is( $class->get_count, 0, "Count of $class is correct");
}