# $Id: object.t 444 2002-10-08 23:13:31Z comdog $
use strict;

use Test::More tests => 7;

use Mac::Errors qw( %MacErrors );

my $object = $MacErrors{ 'openErr' };
isa_ok( $object, 'Mac::Errors' );
can_ok( $object, 'symbol' );
can_ok( $object, 'number' );
can_ok( $object, 'description' );
is( $object->symbol,      'openErr' );
is( $object->number,      -23 );
is( $object->description, 'I/O System Errors' );