Hello everyone.
I bought a dell laptop (XPS M1330) online which came without a hard drive. There is a Windows Vista Ultimate OEMAct sticker with product key at the bottom case. I checked dell website (here) for this model and it says this model supports both 32 and 64-bit version of Windows... (4 Replies)
Hi,
Here is the issue. From the program snippet I have Base: 0x1800000000, Size: 0x3FFE7FFFFFFFF which are of 40 and 56 bits. SO I used use bignum to do the math but summing them up I always failed having correct result.
perl interpreter info,
perl, v5.8.8 built for... (0 Replies)
Hi,
I am not able to access wi-fi network from my laptop HP-DV6-1111au. Please suggest how can i load a driver for the device and set the network right!! (3 Replies)
Hi.
I need to migrate the whole unix environment from a Unix mp-ras 32 bit to a Linux Suse 64 bit.
1) can i use cpio to copy the data?
2) can i just copy the users from unix to linux or do i have to create them by hand
3) are there any other concerns i should worry about?
thanx (1 Reply)
Hi all,
I'm looking to cover a corner case for an upcoming test cycle. Is there a way to boot a RedHat Advanced Server 4 (update 3) installed on a Power PC machine to use a 32 bit kernel? This would be similar to what is done here -> https://www.unix.com/aix/26204-aix-platform.html
I've done... (0 Replies)
Test::Class::Most(3pm) User Contributed Perl Documentation Test::Class::Most(3pm)NAME
Test::Class::Most - Test Classes the easy way
VERSION
Version 0.06
SYNOPSIS
Instead of this:
use strict;
use warnings;
use Test::Exception 0.88;
use Test::Differences 0.500;
use Test::Deep 0.106;
use Test::Warn 0.11;
use Test::More 0.88;
use parent 'My::Test::Class';
sub some_test : Tests { ... }
You type this:
use Test::Class::Most parent => 'My::Test::Class';
sub some_test : Tests { ... }
DESCRIPTION
When people write test classes with the excellent "Test::Class", you often see the following at the top of the code:
package Some::Test::Class;
use strict;
use warnings;
use base 'My::Test::Class';
use Test::More;
use Test::Exception;
# and then the tests ...
That's a lot of boilerplate and I don't like boilerplate. So now you can do this:
use Test::Class::Most parent => 'My::Test::Class';
That automatically imports strict and warnings for you. It also gives you all of the testing goodness from Test::Most.
CREATING YOUR OWN BASE CLASS
You probably want to create your own base class for testing. To do this, simply specify no import list:
package My::Test::Class;
use Test::Class::Most; # we now inherit from Test::Class
INIT { Test::Class->runtests }
1;
And then your other classes inherit as normal (well, the way we do it):
package Tests::For::Foo;
use Test::Class::Most parent => 'My::Test::Class';
And you can inherit from those other classes, too:
package Tests::For::Foo::Child;
use Test::Class::Most parent => 'Tests::For::Foo';
Of course, it's quite possible that you're a fan of multiple inheritance, so you can do that, too (I was soooooo tempted to not allow this,
but I figured I shouldn't force too many of my personal beliefs on you):
package Tests::For::ISuckAtOO;
use Test::Class::Most parent => [qw/
Tests::For::Foo
Tests::For::Bar
Some::Other::Class::For::Increased::Stupidity
/];
As a side note, it's recommended that even if you don't need test control methods in your base class, put stubs in there:
package My::Test::Class;
use Test::Class::Most; # we now inherit from Test::Class
INIT { Test::Class->runtests }
sub startup : Tests(startup) {}
sub setup : Tests(setup) {}
sub teardown : Tests(teardown) {}
sub shutdown : Tests(shutdown) {}
1;
This allows developers to always be able to safely call parent test control methods rather than wonder if they are there:
package Tests::For::Customer;
use Test::Class::Most parent => 'My::Test::Class';
sub setup : Tests(setup) {
my $test = shift;
$test->next::method; # safe due to stub in base class
...
}
ATTRIBUTES
You can also specify "attributes" which are merely very simple getter/setters.
use Test::Class::Most
parent => 'My::Test::Class',
attributes => [qw/customer items/],
is_abstract => 1;
sub setup : Tests(setup) {
my $test = shift;
$test->SUPER::setup;
$test->customer( ... );
$test->items( ... );
}
sub some_tests : Tests {
my $test = shift;
my $customer = $test->customer;
...
}
If called with no arguments, returns the current value. If called with one argument, sets that argument as the current value. If called
with more than one argument, it croaks.
ABSTRACT CLASSES
You may pass an optional "is_abstract" parameter in the import list. It takes a boolean value. This value is advisory only and is not
inherited. It defaults to false if not provided.
Sometimes you want to identify a test class as "abstract". It may have a bunch of tests, but those should only run for its subclasses. You
can pass "<is_abstract =" 1>> in the import list. Then, to test if a given class or instance of that class is "abstract":
sub dont_run_in_abstract_base_class : Tests {
my $test = shift;
return if Test::Class::Most->is_abstract($test);
...
}
Note that "is_abstract" is strictly advisory only. You are expected (required) to check the value yourself and take appropriate action.
We recommend adding the following method to your base class:
sub is_abstract {
my $test = shift;
return Test::Class::Most->is_abstract($test);
}
And later in a subclass:
if ( $test->is_abstract ) { ... }
EXPORT
All functions from Test::Most are automatically exported into your namespace.
TUTORIAL
If you're not familiar with using Test::Class, please see my tutorial at:
o http://www.modernperlbooks.com/mt/2009/03/organizing-test-suites-with-testclass.html
<http://www.modernperlbooks.com/mt/2009/03/organizing-test-suites-with-testclass.html>
o http://www.modernperlbooks.com/mt/2009/03/reusing-test-code-with-testclass.html <http://www.modernperlbooks.com/mt/2009/03/reusing-
test-code-with-testclass.html>
o http://www.modernperlbooks.com/mt/2009/03/making-your-testing-life-easier.html <http://www.modernperlbooks.com/mt/2009/03/making-your-
testing-life-easier.html>
o http://www.modernperlbooks.com/mt/2009/03/using-test-control-methods-with-testclass.html
<http://www.modernperlbooks.com/mt/2009/03/using-test-control-methods-with-testclass.html>
o http://www.modernperlbooks.com/mt/2009/03/working-with-testclass-test-suites.html <http://www.modernperlbooks.com/mt/2009/03/working-
with-testclass-test-suites.html>
AUTHOR
Curtis "Ovid" Poe, "<ovid at cpan.org>"
BUGS
Please report any bugs or feature requests to "bug-test-class-most at rt.cpan.org", or through the web interface at
http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-Class-Most <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-Class-Most>. I will be
notified, and then you'll automatically be notified of progress on your bug as I make changes.
SUPPORT
You can find documentation for this module with the perldoc command.
perldoc Test::Class::Most
You can also look for information at:
o RT: CPAN's request tracker
http://rt.cpan.org/NoAuth/Bugs.html?Dist=Test-Class-Most <http://rt.cpan.org/NoAuth/Bugs.html?Dist=Test-Class-Most>
o AnnoCPAN: Annotated CPAN documentation
http://annocpan.org/dist/Test-Class-Most <http://annocpan.org/dist/Test-Class-Most>
o CPAN Ratings
http://cpanratings.perl.org/d/Test-Class-Most <http://cpanratings.perl.org/d/Test-Class-Most>
o Search CPAN
http://search.cpan.org/dist/Test-Class-Most/ <http://search.cpan.org/dist/Test-Class-Most/>
SEE ALSO
o Test::Class
xUnit-style testing in Perl
o Test::Most
The most popular CPAN test modules bundled into one module.
o Modern::Perl
I stole this code. Thanks "chromatic"!
ACKNOWLEDGEMENTS
Thanks to Adrian Howard for Test::Class, Adam Kennedy for maintaining it and "chromatic" for Modern::Perl.
COPYRIGHT &; LICENSE
Copyright 2010 Curtis "Ovid" Poe, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.14.2 2012-01-12 Test::Class::Most(3pm)
