manpagez: man pages & more
man Test::Specio(3)
Home | html | info | man
Test::Specio(3)       User Contributed Perl Documentation      Test::Specio(3)




NAME

       Test::Specio - Test helpers for Specio


VERSION

       version 0.47


SYNOPSIS

         use Test::Specio qw( test_constraint :vars );

         test_constraint(
             t('Foo'), {
                 accept => [ 'foo', 'bar' ],
                 reject => [ 42,    {}, $EMPTY_STRING, $HASH_REF ],
             }
         );


DESCRIPTION

       This package provides some helper functions and variables for testing
       Specio types.


EXPORTS

       This module provides the following exports:

   test_constraint( $type, $tests, [ $describer ] )
       This subroutine accepts two arguments. The first should be a Specio
       type object. The second is hashref which can contain the keys "accept"
       and "reject". Each key should contain an arrayref of values which the
       type accepts or rejects.

       The third argument is optional. This is a sub reference which will be
       called to generate a description of the value being tested. This
       defaults to calling this package's "describe" sub, but you can provide
       your own.

   describe($value)
       Given a value, this subroutine returns a string describing that value
       in a useful way for test output. It know about the various classes used
       for the variables exported by this package and will do something
       intelligent when such a variable.

   builtins_tests( $GLOB, $GLOB_OVERLOAD, $GLOB_OVERLOAD_FH )
       This subroutine returns a hashref containing test variables for all
       builtin types. The hashref has a form like this:

         {
             Bool => {
                 accept => [
                     $ZERO,
                     $ONE,
                     $BOOL_OVERLOAD_TRUE,
                     $BOOL_OVERLOAD_FALSE,
                     ...,
                 ],
                 reject => [
                     $INT,
                     $NEG_INT,
                     $NUM,
                     $NEG_NUM,
                     ...,
                     $OBJECT,
                 ],
             },
             Maybe => {...},
         }

       You need to pass in a glob, an object which overloads globification,
       and an object which overloads globification to return an open
       filehandle. See below for more details on how to create these things.

   Variables
       This module also exports many variables containing values which are
       useful for testing constraints. Note that references are always empty
       unless stated otherwise. You can import these variables individually or
       import all of them with the ":vars" import tag.

       o   $ZERO

       o   $ONE

       o   $INT

           An arbitrary positive integer.

       o   $NEG_INT

           An arbitrary negative integer.

       o   $NUM

           An arbitrary positive non-integer number.

       o   $NEG_NUM

           An arbitrary negative non-integer number.

       o   $EMPTY_STRING

       o   $STRING

           An arbitrary non-empty string.

       o   $NUM_IN_STRING

           An arbitrary string which contains a number.

       o   $INT_WITH_NL1

           An string containing an integer followed by a newline.

       o   $INT_WITH_NL2

           An string containing a newline followed by an integer.

       o   $SCALAR_REF

       o   $SCALAR_REF_REF

           A reference containing a reference to a scalar.

       o   $ARRAY_REF

       o   $HASH_REF

       o   $CODE_REF

       o   $GLOB_REF

       o   $FH

           An opened filehandle.

       o   $FH_OBJECT

           An opened IO::File object.

       o   $REGEX

           A regex created with "qr//".

       o   $REGEX_OBJ

           A regex created with "qr//" that was then blessed into class.

       o   $FAKE_REGEX

           A non-regex blessed into the "Regexp" class which Perl uses
           internally for "qr//" objects.

       o   $OBJECT

           An arbitrary object.

       o   $UNDEF

       o   $CLASS_NAME

           A string containing a loaded package name.

       o   $BOOL_OVERLOAD_TRUE

           An object which overloads boolification to return true.

       o   $BOOL_OVERLOAD_FALSE

           An object which overloads boolification to return false.

       o   $STR_OVERLOAD_EMPTY

           An object which overloads stringification to return an empty
           string.

       o   $STR_OVERLOAD_FULL

           An object which overloads stringification to return a non-empty
           string.

       o   $STR_OVERLOAD_CLASS_NAME

           An object which overloads stringification to return a loaded
           package name.

       o   $NUM_OVERLOAD_ZERO

       o   $NUM_OVERLOAD_ONE

       o   $NUM_OVERLOAD_NEG

       o   $NUM_OVERLOAD_DECIMAL

       o   $NUM_OVERLOAD_NEG_DECIMAL

       o   $CODE_OVERLOAD

       o   $SCALAR_OVERLOAD

           An object which overloads scalar dereferencing to return a non-
           empty string.

       o   $ARRAY_OVERLOAD

           An object which overloads array dereferencing to return a non-empty
           array.

       o   $HASH_OVERLOAD

           An object which overloads hash dereferencing to return a non-empty
           hash.

   Globs and the _T::GlobOverload package
       To create a glob you can pass around for tests, use this code:

         my $GLOB = do {
             no warnings 'once';
             *SOME_GLOB;
         };

       The "_T::GlobOverload" package is defined when you load "Test::Specio"
       so you can create your own glob overloading objects. Such objects
       cannot be exported because the glob they return does not transfer
       across packages properly.

       You can create such a variable like this:

         local *FOO;
         my $GLOB_OVERLOAD = _T::GlobOverload->new( \*FOO );

       If you want to create a glob overloading object that returns a
       filehandle, do this:

         local *BAR;
         open BAR, '<', $^X or die "Could not open $^X for the test";
         my $GLOB_OVERLOAD_FH = _T::GlobOverload->new( \*BAR );


SUPPORT

       Bugs may be submitted at
       <https://github.com/houseabsolute/Specio/issues>.

       I am also usually active on IRC as 'autarch' on "irc://irc.perl.org".


SOURCE

       The source code repository for Specio can be found at
       <https://github.com/houseabsolute/Specio>.


AUTHOR

       Dave Rolsky <autarch@urth.org>


COPYRIGHT AND LICENSE

       This software is Copyright (c) 2012 - 2021 by Dave Rolsky.

       This is free software, licensed under:

         The Artistic License 2.0 (GPL Compatible)

       The full text of the license can be found in the LICENSE file included
       with this distribution.



perl v5.30.3                      2021-01-29                   Test::Specio(3)

specio 0.470.0 - Generated Tue Mar 2 15:05:47 CST 2021
© manpagez.com 2000-2024
Individual documents may contain additional copyright information.