Test AN::Tools - Revision history

Digimer at 03:21, 5 May 2013

2013-05-05T03:21:18Z

← Older revision		Revision as of 03:21, 5 May 2013
Line 3:		Line 3:
	'''Note''': For development, this is in a 'test.pl' file, not in 't/Tools.t'. When the modules reach release, this will be changed and the tests will be run by the Makefile.pl.		'''Note''': For development, this is in a 'test.pl' file, not in 't/Tools.t'. When the modules reach release, this will be changed and the tests will be run by the Makefile.pl.

	'''[https://alteeve.~~com~~/AN/test.pl test.pl]'''		'''[https://alteeve.ca/AN/test.pl test.pl]'''

	<source lang="perl">		<source lang="perl">

Digimer at 03:43, 20 September 2009

2009-09-20T03:43:08Z

← Older revision		Revision as of 03:43, 20 September 2009
Line 4:		Line 4:

	'''[https://alteeve.com/AN/test.pl test.pl]'''		'''[https://alteeve.com/AN/test.pl test.pl]'''
	~~----~~
	<source lang="perl">		<source lang="perl">
	#!/usr/bin/perl -Tw		#!/usr/bin/perl -Tw

Digimer at 03:01, 20 September 2009

2009-09-20T03:01:25Z

← Older revision		Revision as of 03:01, 20 September 2009
Line 4:		Line 4:

	'''[https://alteeve.com/AN/test.pl test.pl]'''		'''[https://alteeve.com/AN/test.pl test.pl]'''
			----
	<source lang="perl">		<source lang="perl">
	#!/usr/bin/perl -Tw		#!/usr/bin/perl -Tw

Digimer at 03:00, 20 September 2009

2009-09-20T03:00:12Z

← Older revision		Revision as of 03:00, 20 September 2009
Line 2:		Line 2:

	'''Note''': For development, this is in a 'test.pl' file, not in 't/Tools.t'. When the modules reach release, this will be changed and the tests will be run by the Makefile.pl.		'''Note''': For development, this is in a 'test.pl' file, not in 't/Tools.t'. When the modules reach release, this will be changed and the tests will be run by the Makefile.pl.

			'''[https://alteeve.com/AN/test.pl test.pl]'''

	<source lang="perl">		<source lang="perl">

Digimer: Created page with '{{mod_header}} '''Note''': For development, this is in a 'test.pl' file, not in 't/Tools.t'. When the modules reach release, this will be changed and the tests will be run by th…'

2009-09-20T02:56:13Z

Created page with '{{mod_header}} '''Note''': For development, this is in a 'test.pl' file, not in 't/Tools.t'. When the modules reach release, this will be changed and the tests will be run by th…'

Páàjì titun

{{mod_header}}

'''Note''': For development, this is in a 'test.pl' file, not in 't/Tools.t'. When the modules reach release, this will be changed and the tests will be run by the Makefile.pl.

<source lang="perl">
#!/usr/bin/perl -Tw
#
# This is the test script for the AN::Tools family of modules.
#

BEGIN {
push @INC, "..";
}

# This just sets perl to be strict about how it runs.
use strict;
use warnings;
my $VERSION=0.0.001;

# Setup for UTF-8 mode.
# use utf8;
# binmode STDOUT, ":utf8:";
# $ENV{'PERL_UNICODE'}=1;

# Call in the test module
# use Test::More tests => 65;
use Test::More 'no_plan';

# Load my module via 'use_ok' test.
BEGIN
{
print "Will now test AN::Tools on $^O.\n";
use_ok('AN::Tools', 0.0.001);
}

# Test the main module object.e
# my $an=AN::Tools->new({String=>{force_utf8=>1}});
my $an=AN::Tools->new();
like($an, qr/^AN::Tools=HASH$0x\w+$$/, "AN::Tools object appears valid.");
my @methods=(
"error",
"error_code",
"Alert",
"Math",
"Readable",
"String",
"data",
"_math_bigint_loaded",
"_load_math_bigint",
"_io_handle_loaded",
"_load_io_handle",
"_make_hash_reference",
"_add_hash_reference",
"_error_limit",
"_get_hash_reference"
);
can_ok("AN::Tools", @methods);
is($an->error(), "", "error() is initially blank.");
is($an->error_code(), 0, "error_code() is initially '0'.");
is($an->_math_bigint_loaded, 0, "_math_bigint_loaded() is initially '0'.");

### test AN::Tools::Alert
print "Testing AN::Tools::Alert\n";
require_ok("t/Alert.t");

### Test AN::Tools::Math
print "Testing AN::Tools::Math\n";
require_ok("t/Math.t");

### Test AN::Tools::Readable
print "Testing AN::Tools::Readable\n";
require_ok("t/Readable.t");

### Test AN::Tools::String
print "Testing AN::Tools::String\n";
require_ok("t/String.t");

exit 0;
</source>

{{footer}}