view release on metacpan or  search on metacpan

t/json_utf8.t  view on Meta::CPAN

  $pass = $build->notes('pass');
};

my $TEST_SERVER = $build ? $build->notes('test_server') : $ENV{REST_NEO4P_TEST_SERVER} // 'http://127.0.0.1:7474';

my $not_connected = connect($TEST_SERVER,$user,$pass);
diag "Test server unavailable (".$not_connected->message.") : tests skipped" if $not_connected;


sub to_hex ($) {
  join ' ', map { sprintf "%02x", ord $_ } split m//, shift;
}

SKIP : {
  skip 'no local connection to neo4j', 37 if $not_connected;

  my %props = (
    singlebyte => "\N{U+0025}",  # '%' PERCENT SIGN = 0x25
    supplement => "\N{U+00E4}",  # 'ä' LATIN SMALL LETTER A WITH DIAERESIS = 0xc3a4
    extension  => "\N{U+0100}",  # 'Ä€' LATIN CAPITAL LETTER A WITH MACRON = 0xc480
    threebytes => "\N{U+D55C}",  # '한' HANGUL SYLLABLE HAN = 0xed959c