GSP
Quick Navigator

Search Site

Unix VPS
A - Starter
B - Basic
C - Preferred
D - Commercial
MPS - Dedicated
Previous VPSs
* Sign Up! *

Support
Contact Us
Online Help
Handbooks
Domain Status
Man Pages

FAQ
Virtual Servers
Pricing
Billing
Technical

Network
Facilities
Connectivity
Topology Map

Miscellaneous
Server Agreement
Year 2038
Credits
 

USA Flag

 

 

Man Pages
Test::Data::Scalar(3) User Contributed Perl Documentation Test::Data::Scalar(3)

Test::Data::Scalar -- test functions for scalar variables

        use Test::Data qw(Scalar);

This modules provides a collection of test utilities for scalar variables. Load the module through Test::Data.

blessed_ok( SCALAR )
Ok if the SCALAR is a blessed reference.
defined_ok( SCALAR )
Ok if the SCALAR is defined.
undef_ok( SCALAR )
Ok if the SCALAR is undefined.
dualvar_ok( SCALAR )
Ok if the scalar is a dualvar.

How do I test this?

sub dualvar_ok ($;$) { my $ok = Scalar::Util::dualvar( $_[0] ); my $name = $_[1] || 'Scalar is a dualvar';

        $Test->ok( $ok, $name );

        $Test->diag("Expected a dualvar, didn't get it\n")
                unless $ok;
        }
    
greater_than( SCALAR, BOUND )
Ok if the SCALAR is numerically greater than BOUND.
length_ok( SCALAR, LENGTH )
Ok if the length of SCALAR is LENGTH.
less_than( SCALAR, BOUND )
Ok if the SCALAR is numerically less than BOUND.
maxlength_ok( SCALAR, LENGTH )
Ok is the length of SCALAR is less than or equal to LENGTH.
minlength_ok( SCALAR, LENGTH )
Ok is the length of SCALAR is greater than or equal to LENGTH.
number_ok( SCALAR )
Ok if the SCALAR is a number ( or a string that represents a number ).

At the moment, a number is just a string of digits. This needs work.

number_between_ok( SCALAR, LOWER, UPPER )
Ok if the number in SCALAR sorts between the number in LOWER and the number in UPPER, numerically.

If you put something that isn't a number into UPPER or LOWER, Perl will try to make it into a number and you may get unexpected results.

string_between_ok( SCALAR, LOWER, UPPER )
Ok if the string in SCALAR sorts between the string in LOWER and the string in UPPER, ASCII-betically.
readonly_ok( SCALAR )
Ok is the SCALAR is read-only.
ref_ok( SCALAR )
Ok if the SCALAR is a reference.
ref_type_ok( REF1, REF2 )
Ok if REF1 is the same reference type as REF2.
strong_ok( SCALAR )
Ok is the SCALAR is not a weak reference.
tainted_ok( SCALAR )
Ok is the SCALAR is tainted.

(Tainted values may seem like a not-Ok thing, but remember, when you use taint checking, you want Perl to taint data, so you should have a test to make sure it happens.)

untainted_ok( SCALAR )
Ok if the SCALAR is not tainted.
weak_ok( SCALAR )
Ok if the SCALAR is a weak reference.

* add is_a_filehandle test

* add is_vstring test

Scalar::Util, Test::Data, Test::Data::Array, Test::Data::Function, Test::Data::Hash, Test::Builder

This source is in Github:

        https://github.com/briandfoy/test-data

brian d foy, "<bdfoy@cpan.org>"

Copyright © 2002-2021, brian d foy <bdfoy@cpan.org>. All rights reserved.

This program is free software; you can redistribute it and/or modify it under the terms of the Artistic License 2.0.

2021-01-16 perl v5.32.1

Search for    or go to Top of page |  Section 3 |  Main Index

Powered by GSP Visit the GSP FreeBSD Man Page Interface.
Output converted with ManDoc.