This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Tests for XS AUTOLOAD routines
[perl5.git] / ext / XS-APItest / t / autoload.t
1 #!perl
2
3 use strict;
4 use warnings;
5
6 use Test::More tests => 3;
7
8 use XS::APItest;
9
10 is XS::APItest::AutoLoader::frob(), 'frob', 'name passed to XS AUTOLOAD';
11 is "XS::APItest::AutoLoader::fr\0b"->(), "fr\0b",
12   'name with embedded null passed to XS AUTOLOAD';
13 is "XS::APItest::AutoLoader::fr\x{1ed9}b"->(), "fr\x{1ed9}b",
14   'Unicode name passed to XS AUTOLOAD';