# $Id: badparse.t,v 1.1 2003/12/01 08:56:58 koschei Exp $

use Test::More tests => 17;

use strict;

use warnings;

use vars qw( $class );

BEGIN

{

    $class = 'DateTime::Format::IBeat';

    use_ok $class;

}

sub attempt

{

    my ( $method, $what ) = @_;

    my $rv = eval { $class->$method( $what ) };

    $what = '[undef]' unless defined $what;

    ok( !defined $rv, "No return value" );

    like( $@ => qr/^Could not parse (date)?(time)?!/, "Bad parse of $what");

}

{

    attempt( "parse_time", undef );

    attempt( "parse_time", "frob" );

    attempt( "parse_time", 1001 );

    attempt( "parse_time", -10 );

    attempt( "parse_date", undef );

    attempt( "parse_date", "123\." );

    attempt( "parse_datetime", undef );

    attempt( "parse_datetime", "123\." );

}