Digimer at 03:21, 5 May 2013

2013-05-05T03:21:05Z

← Older revision		Revision as of 03:21, 5 May 2013
Line 1:		Line 1:
	{{mod_header}}		{{mod_header}}

	'''[https://alteeve.~~com~~/AN/t/Alert.t t/Alert.t]'''		'''[https://alteeve.ca/AN/t/Alert.t t/Alert.t]'''

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

Digimer at 03:44, 20 September 2009

2009-09-20T03:44:56Z

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

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

Digimer at 03:07, 20 September 2009

2009-09-20T03:07:54Z

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

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

Digimer: Created page with '{{mod_header}} '''[https://alteeve.com/AN/t/Alert.t t/Alert.t]''' #!/usr/bin/perl -Tw # # This is the test script for the AN::Tools family of modules. # u…'

2009-09-20T02:58:28Z

Created page with '{{mod_header}} '''[https://alteeve.com/AN/t/Alert.t t/Alert.t]''' <source lang="perl"> #!/usr/bin/perl -Tw # # This is the test script for the AN::Tools family of modules. # u…'

Páàjì titun

{{mod_header}}

'''[https://alteeve.com/AN/t/Alert.t t/Alert.t]'''

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

use AN::Tools 0.0.001;
my $an=AN::Tools->new();

# Make sure that $parent matches $an.
my $parent=$an->Alert->parent();
is($an, $parent, "Internal 'parent' method returns same blessed reference as is in \$an.");

# Make sure that all methods are available.
my @methods=("parent", "error", "no_fatal_errors", "_error_string", "_error_code", "_set_error", "_set_error_code", "_nice_exit");
can_ok("AN::Tools::Alert", @methods);

# Make sure that I can turn fatal errors off.
is($an->Alert->no_fatal_errors(), 0, "no_fatal_errors(); fatal errors are enabled by default.");
is($an->Alert->no_fatal_errors({set=>1}), 1, "no_fatal_errors(); fatal errors were turned off.");
is($an->Alert->no_fatal_errors(), 1, "no_fatal_errors(); fatal errors stayed off.");
is($an->Alert->no_fatal_errors({set=>0}), 0, "no_fatal_errors(); fatal errors were turned back on.");
is($an->Alert->no_fatal_errors(), 0, "no_fatal_errors(); fatal errors stayed on.");

# I can't trigger a real error at this time (a real one will be triggered in
# 't/Math.t'). For now, I will test the internal methods directly.
is($an->Alert->_error_string(), "", "Internal method '_error_string' is blank to start.");
is($an->Alert->_set_error("Test Error"), "Test Error", "Internal method '_set_error' manually set to 'Test Error'.");
is($an->Alert->_error_string(), "Test Error", "Internal method '_error_string' is now 'Test Error'.");
is($an->Alert->_set_error(), "", "Internal method '_set_error' manually cleared.");
is($an->Alert->_set_error(), "", "Internal method '_set_error' is still clear.");
</source>

{{footer}}

Test AN::Tools::Alert - Revision history

Digimer at 03:21, 5 May 2013

Digimer at 03:44, 20 September 2009

Digimer at 03:07, 20 September 2009

Digimer: Created page with '{{mod_header}} '''[https://alteeve.com/AN/t/Alert.t t/Alert.t]''' #!/usr/bin/perl -Tw # # This is the test script for the AN::Tools family of modules. # u…'