use Test::More tests => 11;
use strict;
use warnings;

BEGIN { use_ok("Religion::Bible::Reference"); }

{ # the truth will set you free
	my $bibref = bibref("jn8:32");

	isa_ok($bibref, "Religion::Bible::Reference");

	is($bibref->{book}, "John", "jn8:32 book");

	is(
		$bibref->stringify,
		"John 8:32",
		"jn8:32 stringification"
	);

  is(
    $bibref->stringify_short,
    'Jn 8:32',
    'short stringification works',
  );
}

{
	my $bibref = bibref("jn10:11-12");
	is(
		$bibref->stringify,
		"John 10:11-12",
		"jn10:11-12 stringification"
	);
}

{
	my $bibref = bibref("Lk 1:12-51");
	is(
		$bibref->stringify,
		"Luke 1:12-51",
		"Lk 1:12-51 stringification"
	);
}

{
	my $bibref = bibref("1Kgs 1:2-3,5");

	is(
		$bibref->stringify,
		"1 Kings 1:2-3, 5",
		"1Kgs 1:2-3, 5 stringification"
	);
}

{
	my $bibref = bibref("Jn 1:10-11,20-21,23");
	is(
		$bibref->stringify,
		"John 1:10-11, 20-21, 23",
		"Jn 1:10-11,20-21,23 stringification"
	);
}

{
	is(bibref("1Tim 99:1"),    undef, "invalid beginning");
	is(bibref("1Kgs 1:2-300"), undef, "invalid ending");
}