#!/usr/bin/perl
use strict;
use warnings;
use blib;  

use Test::More;
# work around win32 console buffering
Test::More->builder->failure_output(*STDOUT) 
    if ($^O eq 'MSWin32' && $ENV{HARNESS_VERBOSE});
use t::Common;
use Scalar::Util 'refaddr';

my $class1 = "t::Object::HandRoll::Sub";
my $class2 = "t::Object::HandRoll::Sub_ISA";

plan tests => 2 * TC() + 12;

my $o = test_constructor($class1);
my $p = test_constructor($class2);

SKIP: {
    skip "because we don't have a $class1 object", 12  
        unless $o;
    skip "because we don't have a $class2 object", 12  
        unless $p;
    is( $o->report_package, "t::Object::HandRoll", 
        "first object inherits report_package() method OK");
    is( $p->report_package, "t::Object::HandRoll", 
        "second object inherits report_package() method OK");
    ok( $o->set_name("Charlie"), "naming first object 'Charlie'");
    ok( $o->set_color("orange"), "... making him 'orange'");
    ok( $o->set_shape("square"), "... making him 'square'");
    is( $o->desc, "I'm Charlie, my color is orange and my shape is square", 
        "... and his overridden description is right");
    ok( ! $o->can_roll, "additional can-roll() method works" );
    my $addr = refaddr $o;
    ok( exists $t::Object::HandRoll::Sub::DATA::color{$addr}, 
        "found property 'color' data in the subclass data hash" );
    ok( exists $t::Object::HandRoll::Sub::DATA::shape{$addr}, 
        "found property 'shape' data in the subclass data hash" );
    $o = undef;
    ok( ! defined $o, "releasing object reference" );
    ok( ! exists $t::Object::HandRoll::Sub::DATA::color{$addr}, 
        "... and subclass property 'color' data has been cleaned up" );
    ok( ! exists $t::Object::HandRoll::Sub::DATA::shape{$addr}, 
        "... and subclass property 'shape' data has been cleaned up" );
}