#!/usr/bin/perl
###########################################
# simple
# Mike Schilli, 2005 (m@perlmeister.com)
###########################################
use strict;
use warnings;

use Test::More tests => 4;

BEGIN { use_ok("Config::Patch"); }

my $p = Config::Patch->new(
    key => "foo");

    # True
ok($p, "New object");

    # #1 eq #2
is($p->key, "Waaah!", "Retrieve key");

    # #1 matches #2
like($p->key(), qr/^f/, 
     "Key starts with 'f'");