10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Dears,
I am looking for a script which will work as a watch directory.
I ha directory which keep getting files in every 10 mins and some time delay.
I want to monitor if the directory getting the files in every 10 mins if not captured the last received file time and calculate the delay.
... (6 Replies)
Discussion started by: sadique.manzar
6 Replies
2. Shell Programming and Scripting
I need 5 mins old logs to be dumped into a a new file.
The date formats in the two log files are
Can you suggect for both formats ?
bash-3.2$ uname -a
SunOS myserver 5.10 Generic_150400-26 sun4v sparc sun4v
---------- Post updated 05-04-16 at 12:24 AM ---------- Previous update was... (2 Replies)
Discussion started by: mohtashims
2 Replies
3. UNIX for Dummies Questions & Answers
Hi All,
I have an issue which I'm trying to understand a way of doing, I have several nodes which contain syslog events which I want to force trigger an email initially (eventually leading to another method of alerting but to start with an email).
Basically the syslog file will have hours worth... (6 Replies)
Discussion started by: mutley2202
6 Replies
4. Shell Programming and Scripting
Hi...
I am very new to shell scripting. I have written a script with help of this forum and some googling and it works the way I want it to. Currently this script checks for my SIP trunk registration every 5 seconds, if registration is not available then it reboots my router through telnet... (4 Replies)
Discussion started by: jeetz
4 Replies
5. Shell Programming and Scripting
Hello,
Since I m new to shell, I had a hard time to sought out this problem.
I have a log file of a utility which tells that batch files are successful with timestamp. Given below is a part of the log file.
2013/03/07 00:13:50 Apache/1.3.29 (Unix) configured -- resuming normal operations... (12 Replies)
Discussion started by: rpm120
12 Replies
6. Shell Programming and Scripting
How to check weather a string is like test* or test* ot *test* in if condition (5 Replies)
Discussion started by: johnjerome
5 Replies
7. Shell Programming and Scripting
This is the code:
while test 1 -eq 1
do
read a
$a
if test $a = stop
then
break
fi
done
I read a command on every loop an execute it.
I check if the string equals the word stop to end the loop,but it say that I gave too many arguments to test.
For example echo hello.
Now the... (1 Reply)
Discussion started by: Max89
1 Replies
8. Shell Programming and Scripting
Hi All,
I would like to write a script which will search a file say abc.dat in /a/b/data for 15 mins only. If the script finds the file in 15 mins then it will exit will exit sucessfully and if there is no file for 15 mins it will exit and copy the last day file (abc.dat_ddmmyyhhmmss) from... (1 Reply)
Discussion started by: chandancsc
1 Replies
9. Shell Programming and Scripting
Hi All,
I have a requirement that a script need to be executed automatically every 10 mins. how is this possible.
lots of logs are created as a part of process and the logs need to be moved into a directory.
how is this possible ? (1 Reply)
Discussion started by: suresh_kb211
1 Replies
10. UNIX for Dummies Questions & Answers
Hi Friends,
I need to write a script to kill some processes running for more than 10 minutes. Can I get some pointers on that. Thanks for ur help in Advance.
Thanks&Regards,
Amit (3 Replies)
Discussion started by: amitsayshii
3 Replies
Test::Class::Load(3pm) User Contributed Perl Documentation Test::Class::Load(3pm)
NAME
Test::Class::Load - Load "Test::Class" classes automatically.
VERSION
Version 0.02
SYNOPSIS
use Test::Class::Load qw(t/tests t/lib);
Test::Class->runtests;
EXPORT
None.
DESCRIPTION
"Test::Class" typically uses a helper script to load the test classes. It often looks something like this:
#!/usr/bin/perl -T
use strict;
use warnings;
use lib 't/tests';
use MyTest::Foo;
use MyTest::Foo::Bar;
use MyTest::Foo::Baz;
Test::Class->runtests;
This causes a problem, though. When you're writing a test class, it's easy to forget to add it to the helper script. Then you run your
huge test suite and see that all tests pass, even though you don't notice that it didn't run your new test class. Or you delete a test
class and you forget to remove it from the helper script.
"Test::Class::Load" automatically finds and loads your test classes for you. There is no longer a need to list them individually.
BASIC USAGE
Using "Test::Class::Load" is as simple as this:
#!/usr/bin/perl -T
use strict;
use warnings;
use Test::Class::Load 't/tests';
Test::Class->runtests;
That will search through all files in the "t/tests" directory and automatically load anything which ends in ".pm". You should only put test
classes in those directories.
If you have test classes in more than one directory, that's OK. Just list all of them in the import list.
use Test::Class::Load qw<
t/customer
t/order
t/inventory
>;
Test::Class->runtests;
ADVANCED USAGE
Here's some examples of advanced usage of "Test::Class::Load".
FILTER LOADED CLASSES
You can redefine the filtering criteria, that is, decide what classes are picked up and what others are not. You do this simply by
subclassing "Test::Class::Load" overriding the "is_test_class()" method. You might want to do this to only load modules which inherit from
"Test::Class", or anything else for that matter.
is_test_class
$is_test_class = $class->is_test_class( $file, $directory )
Returns true if $file in $directory should be considered a test class and be loaded by Test::Class::Load. The default filter simply
returns true if $file ends with ".pm"
For example:
use strict;
use warnings;
package My::Loader;
use base qw( Test::Class::Load );
# Overriding this selects what test classes
# are considered by T::C::Load
sub is_test_class {
my ( $class, $file, $dir ) = @_;
# return unless it's a .pm (the default)
return unless $class->SUPER:is_test_class( $file, $dir );
# and only allow .pm files with "Good" in their filename
return $file =~ m{Good};
}
1;
CUSTOMIZING TEST RUNS
One problem with this style of testing is that you run all of the tests every time you need to test something. If you want to run only one
test class, it's problematic. The easy way to do this is to change your helper script by deleting the "runtests" call:
#!/usr/bin/perl -T
use strict;
use warnings;
use Test::Class::Load 't/tests';
Then, just make sure that all of your test classes inherit from your own base class which runs the tests for you. It might looks something
like this:
package My::Test::Class;
use strict;
use warnings;
use base 'Test::Class';
INIT { Test::Class->runtests } # here's the magic!
1;
Then you can run an individual test class by using the "prove" utility, tell it the directory of the test classes and the name of the test
package you wish to run:
prove -lv -It/tests Some::Test::Class
You can even automate this by binding it to a key in "vim":
noremap ,t :!prove -lv -It/tests %<CR>
Then you can just type ",t" ('comma', 'tee') and it will run the tests for your test class or the tests for your test script (if you're
using a traditional "Test::More" style script).
Of course, you can still run your helper script with "prove", "make test" or "./Build test" to run all of your test classes.
If you do that, you'll have to make sure that the "-I" switches point to your test class directories.
SECURITY
"Test::Class::Load" is taint safe. Because we're reading the class names from the directory structure, they're marked as tainted when
running under taint mode. We use the following ultra-paranoid bit of code to untaint them. Please file a bug report if this is too
restrictive.
my ($package) = $_package =~ /^([[:word:]]+(?:::[[:word:]]+)*)$/;
AUTHOR
Curtis "Ovid" Poe, "<ovid@cpan.org>"
BUGS
Please report any bugs or feature requests to "bug-test-class-load@rt.cpan.org", or through the web interface at
http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-Class-Load <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-Class-Load>. I will be
notified, and then you'll automatically be notified of progress on your bug as I make changes.
ACKNOWLEDGMENTS
Thanks to David Wheeler for the idea and Adrian Howard for "Test::Class".
COPYRIGHT & LICENSE
Copyright 2006 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-06-27 Test::Class::Load(3pm)