src/perl/t/09-Utils-Cache.t

   1 #!perl -T
   2
   3 use Test::More tests => 2;
   4
   5 BEGIN {
   6         use_ok( 'OpenSRF::Utils::Cache' );
   7 }
   8
   9 is (OpenSRF::Utils::Cache::_clean_cache_key('ac.jacket.large.9780415590211 (hbk.)'), 'ac.jacket.large.9780415590211(hbk.)');