Open-ILS/src/perlmods/t/01-OpenILS-Application.t

   1 #!perl -T
   2
   3 use utf8;
   4 use Test::More tests => 12;
   5
   6 BEGIN {
   7         use_ok( 'OpenILS::Application' );
   8 }
   9
  10 use_ok( 'OpenILS::Application::AppUtils' );
  11 use_ok( 'OpenILS::Application::Booking' );
  12 use_ok( 'OpenILS::Application::Collections' );
  13 use_ok( 'OpenILS::Application::Fielder' );
  14 use_ok( 'OpenILS::Application::PermaCrud' );
  15 use_ok( 'OpenILS::Application::Reporter' );
  16 use_ok( 'OpenILS::Application::ResolverResolver' );
  17 use_ok( 'OpenILS::Application::Serial' );
  18 use_ok( 'OpenILS::Application::SuperCat' );
  19 use_ok( 'OpenILS::Application::Vandelay' );
  20
  21 is(
  22     OpenILS::Application::AppUtils::entityize(0, 'èöçÇÈÀ'),
  23     '&#xE8;&#xF6;&#xE7;&#xC7;&#xC8;&#xC0;',
  24     'entityize: diacritics'
  25 );