view release on metacpan or  search on metacpan

examples/private_group_code.pl  view on Meta::CPAN

##################################################################
# https://bugs.launchpad.net/evergreen/+bug/1559281/comments/2
#
# This UbuntuOne thread has some example data for a publisher using
# unassigned group codes. It does not note what the publisher code
# ranges should be.
my @tests = (
	[ qw(9786316294241 6316294247) ],  # https://www.worldcat.org/title/black-mass/oclc/933728185
	[ qw(9786316271976 6316271972) ], # DVD "Bridge of Spies" - https://www.worldcat.org/title/bridge-of-spies/oclc/933729520
	[ qw(9786316364036) ], # DVD "Alvin and the Chipmunks. The road chip"  - http://www.btol.com/home_whatshot_details.cfm?sideMenu=Featured%20CDs%20and%20DVDs&home=home_whatshot_details.cfm
	[ qw(9786316334886) ], # DVD "Spectre"
	[ qw(9786316321183) ], # DVD "Southerner"
	[ qw(9786316319401) ], # DVD "Spotlight"
	[ qw(9786316291431) ], # DVD "Steve Jobs"
	);

##################################################################
# This part tries the test cases with the official ISBN data
# These should fail since the publisher is using unassigned group
# codes, which are cleverly created in a way that an invalid