#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 3;
use Test::Builder::Tester;
use Test::utf8;
test_out("ok 1 - within ascii");
is_within_ascii("foo");
test_test("within ascii");
test_out("ok 1 - bar");
is_within_ascii("foo","bar");
test_test("within ascii name");
test_out("not ok 1 - within ascii");
test_fail(+2);
test_diag("Char 4 not ASCII (it's 233 dec / e9 hex)");
is_within_ascii("foo\x{e9} foo");
test_test("within ascii failure");