view release on metacpan or  search on metacpan

t/jolt-mime.t  view on Meta::CPAN

	content => 'foobar',
};


sub driver_accept {
	my (%params) = @_;
	my $echo_plugin = Neo4j_Test::EchoHTTP->new(neo4j_version => $params{neo4j_version});
	my $d = Neo4j::Driver->new('http:')->plugin($echo_plugin);
	$d->{config}->{jolt} = $params{jolt};  # deprecated/internal option
	my $r = $d->session->run('echo')->single;
	my @accept = split m/\s*,\s*/, $r->get('accept');
}


sub in_or_diag {
	my ($mime_type, $accept, $test, $negate) = @_;
	$mime_type = qr/^\Q$mime_type\E(?:;.*)?$/ unless (ref $mime_type) =~ m/Regexp/i;
	my $result = grep(m/$mime_type/, @$accept);
	$result = ! $result if $negate;
	ok $result, $test;
	diag explain $accept if ! $result;

t/json-utf8.t  view on Meta::CPAN

my $transaction = $driver->session->begin_transaction;
$transaction->{return_stats} = 0;  # optimise sim


my ($r);


sub to_hex ($) {
	return unless defined $_[0];
	join ' ', map { sprintf "%02x", ord $_ } split m//, shift;
}

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
	smp        => "\N{U+1F600}",  # '😀' GRINNING FACE = 0xf09f9880
	decomposed => "o\N{U+0302}",  # 'ô' LATIN SMALL LETTER O + COMBINING CIRCUMFLEX ACCENT = 0x6fcc82
	mixed      => "%äĀ한😀ô",  # 0x25c3a4c480ed959cf09f98806fcc82