#!/usr/bin/perl
use strict;
use warnings;

use Test::More tests => 4;

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

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

  # #1 verdadero
ok($p, "New object");

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

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

@KT:Listado 2: mp3.t
@LI:#!/usr/bin/perl
use warnings;
use strict;

use Test::More tests => 1;
use Test::Deep;
use MP3::Info;

my $tag =
  get_mp3tag(
  "Gimme_Shelter.mp3");

cmp_deeply(
 $tag,
 superhashof(
  {
   YEAR   => re(qr(^\d+$)),
   ARTIST =>
     re(qr(^[\s\w]+$)),
  }
 )
);

@KT:Listado 3: coverme.t
@LI:#!/usr/bin/perl -w
use strict;

package Foo;

sub new {
 my ($class) = @_;
 bless {}, $class;
}

sub foo {
 print "foo!\n";
}

package main;

use Test::More tests => 1;

my $t = Foo->new();
isa_ok($t, "Foo",
  "New Foo object");