NAME
Setup::Test - Various simple setup routines for testing
VERSION
version 0.09
SYNOPSIS
use Setup::Unix::Group 'setup_text_case';
# simple usage (doesn't save undo data)
my $text = 'foo bar baz';
my $res = setup_text_case text_ref => \$text, case => 'upper';
die unless $res->[0] == 200 || $res->[0] == 304;
# perform setup and save undo data (undo data should be serializable)
$res = setup_text_case ..., -undo_action => 'do';
die unless $res->[0] == 200 || $res->[0] == 304;
my $undo_data = $res->[3]{undo_data};
# perform undo
$res = setup_text_case ..., -undo_action => "undo", -undo_data=>$undo_data;
die unless $res->[0] == 200 || $res->[0] == 304;DESCRIPTION
This module provides simple setup functions, useful for testing purposes.
This module uses Log::Any logging framework.
This module has Rinci metadata.
SEE ALSO
AUTHOR
Steven Haryanto <stevenharyanto@gmail.com>
COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by Steven Haryanto.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.