#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

my @to_check;
BEGIN {
  @to_check = (
    [
      'dtRdr::Book::ThoutBook_1_0',
      'books/test_packages/QuickStartGuide/quickstartguide.xml',
      '19d405df538bf655746ae38ad34efde3',
    ],
    [
      'dtRdr::Book::ThoutBook_1_0_jar',
      'books/test_packages/QuickStartGuide.jar',
      '19d405df538bf655746ae38ad34efde3',
    ],
  );
  unless((-e $to_check[0][1]) and (-e $to_check[1][1])) {
    plan skip_all => 'extra books/ dir not available';
  }
  else {
    plan 'no_plan';
  }
}

BEGIN { use_ok('dtRdr::Book::ThoutBook_1_0') };
BEGIN { use_ok('dtRdr::Book::ThoutBook_1_0_jar') };

foreach my $row (@to_check) {
  check_book(@$row);
}

########################################################################
sub check_book {
  my ($class, $test_book, $expect) = @_;
  local $Test::Builder::Level = $Test::Builder::Level + 1;

  (-e $test_book) or die;
  my $book = $class->new;
  ok($book, 'constructor');
  ok($book->load_uri($test_book), 'load');
  can_ok($book, 'fingerprint');
  my $fp = $book->fingerprint;
  ok(defined($fp), 'got a fingerprint');
  is($fp, $expect, 'matches');
}

# vim:ts=2:sw=2:et:sta:nowrap