#!/usr/bin/perl -w
# $Revision: #3 $$Date: 2005/07/19 $$Author: jd150722 $
# DESCRIPTION: Perl ExtUtils: Type 'make test' to test this package
#
# Copyright 2003-2005 by Jeff Dutton.  This program is free software;
# you can redistribute it and/or modify it under the terms of either the GNU
# General Public License or the Perl Artistic License.

use strict;
use Data::Dumper;
use Test;

BEGIN { plan tests => 2; }
BEGIN { require "t/test_utils.pl"; }

use Parse::RandGen;
ok(1);

# This test file contains the little standalone examples from the manual

{
    my $reObj = Parse::RandGen::Regexp->new( qr/foo(bar|baz)/ );
    print "Here is some random data that satisfies the RE:     <" . $reObj->pick() . ">\n";
    print "Here is some that (hopefully) doesn't match the RE: <" . $reObj->pick(match=>0) . ">\n";
    ok(1);
}