use Test::More tests => 2;

BEGIN {
use_ok( 'Acme::BooK::Is::My::Bitch' );
}

my $book = Acme::BooK::Is::My::Bitch->new();

isa_ok( $book, 'Acme::BooK::Is::My::Bitch' );

diag( "Things that BooK could say:\n\n" );

for ( Acme::BooK::Is::My::Bitch->available_quotes, 'random_quote' ) {
    next unless defined &{"Acme::BooK::Is::My::Bitch::$_"};
    diag( '"' . $book->$_ . '"' );
}

diag( "\n" );