view release on metacpan or  search on metacpan

t/notifo.t  view on Meta::CPAN

use strict;
use warnings;

use lib qw( t/lib );

use Test::More tests => 38;
use JSON;
use MIME::Base64;
use WWW::Notifo qw( notifo );

sub want_error(&$;$) {
  my ( $cb, $re, $msg ) = @_;
  $msg = 'error' unless $msg;
  eval { $cb->() };
  ok $@, "$msg: threw error";
  like $@, $re, "$msg: error matches";
}

{
  my $HR;