#!/usr/bin/perl

use strict;
use Test::Simple tests => 4;
use ShopDB::AuthorizeCard;

my $authCard = ShopDB::AuthorizeCard->new();

ok( defined( $authCard ), "new() successful" );
ok( ref $authCard eq 'ShopDB::AuthorizeCard', 
      "blessed into right package" );
ok( defined( $authCard ) and ref $authCard eq 'ShopDB::AuthorizeCard', 
      "new() successful, blessed into right package" );
ok( $authCard->can( 'AuthorizeCard' ),
      "found the AuthorizeCard() method" );

##</code><code>##

1..4
ok 1 - new() successful
ok 2 - blessed into right package
ok 3
ok 4 - found the AuthorizeCard() method