#!/usr/bin/perl use strict; use warnings; use Test::More tests => 5; use Test::Builder::Tester; use Test::DoubleEncodedEntities; test_out("ok 1 - foo"); ok_dee('é', "foo"); test_test("normal"); test_out("ok 1 - foo"); ok_dee('foo', "foo"); test_test("attr"); test_out("not ok 1 - foo"); test_fail(+2); test_diag(qq{Found 1 "é"}); ok_dee('é', "foo"); test_test("1 ent"); test_out("not ok 1 - foo"); test_fail(+3); test_diag(qq{Found 2 "É"}); test_diag(qq{Found 1 "é"}); ok_dee('É Éé', "foo"); test_test("many ent"); test_out("not ok 1 - foo"); test_fail(+2); test_diag(qq{Found 1 "é"}); ok_dee('é', "foo"); test_test("numerical");