use strict;
use warnings;

use HTTP::Tiny;
use Test::Mock::HTTP::Tiny;
use JSON;

my $http = HTTP::Tiny->new;
my $resp = $http->get('http://www.way-finder.uk/');

# EDIT: it's captured_data() not mocked_data() see below
#my $json_str = eval { JSON::encode_json(Test::Mock::HTTP::Tiny->mocked_data()) };
my $json_str = eval { JSON::encode_json(Test::Mock::HTTP::Tiny->captured_data()) };
die "failed to encode json" if $@;

open my $fh, '>', 'mock_html.dat';
print $fh $json_str;
close $fh;

##</code><code>##

use strict;
use warnings;
use Test::More;
use Test::Mock::HTTP::Tiny;

use WWW::Crawl;
use JSON;
plan tests => 1;

$/ = undef;
open my $fh, '<', 't/mock_html.dat' or die "Can't open datafile";
my $replay = <$fh>;
close $fh;

$replay = eval { JSON::decode_json($replay) };
ok(!$@, "parsed JSON replay data") or BAIL_OUT($@);
is(ref($replay), 'ARRAY', "parsed JSON replay data is an ARRAY");

die "Nothing to replay" unless $replay;

Test::Mock::HTTP::Tiny->set_mocked_data($replay);

my $crawl = WWW::Crawl->new(
    'timestamp' => 'a',
);

my @links = $crawl->crawl('https://www.testing.crawl', \&link);

cmp_ok ( scalar @links, '==', 8, 'Correct link count');

sub link {
    diag ($_[0]);
}