echo "SYSTEM NEW LAST"
echo "======================"
for test_name in $(awk '/pp/ {print $2}')
do
if ls -1 | grep -q $test_name
then
ls -1 $pc_dir |
while read filename
do
pc_name=$(echo $filename | cut -d_ -f1-2)
ext=$(echo $filename | awk -F. '{print $2}')
case "$ext" in
new) echo $test_name ${pc_name%.new}" ;;
last) echo $test_name ${pc_name%.last}" ;;
esac
done
else
echo "$test_name ===========> N/A"
fi
done
Hi,
How do I get my working directory always shown in the unix editor? i.e if I am now at /Home/abc/xyz/, I want to see this absolute path displayed ( and now only display when I type pwd).
thanks for the kind help.
Regrads (3 Replies)
Hi,
On solaris 10, t5120,
I don't understand what are the last 2 file systems
so last 2 file systems what are they, why are they getting shown and also confused why the swap is shown so many times and different size when I set it to 16 G at the time of installing solaris 10. ( rest... (3 Replies)
Hello,
This is a 2 node sun cluster 3.2 on solaris 10(x86)
I am using an unique ~512M disk (c0d1) on each node and slice 6 on this disk for globaldevices. While everything looks like fine, the 'Fail' is bothering me.
@ tommy_sun1
@tommy_sun
-bash-3.00# cldevice refresh... (10 Replies)
Hello all,
I am facing a memory related issue on my linux that is CentOS 4.0. What I see as an output of top command, free command is that memory usage is almost 90% which is quite high without much load on the system. This is continuously showing 90% or so of memory usage with top or free... (2 Replies)
I have a TCPIP server application (a Vendor package) which by default allows 10 connections. It provides a parameter to allow us to increase the maximum allowable connections in case it is needed. Intermittently this application is failing with maximum number of connections reached even when there... (1 Reply)
Hi
I am using the dd command on solaris 10 and the output doesn't include the MB/s statistic that you get in Linux,
is this not available or am I missing a switch of some sort
#dd if=/dev/urandom of=/perf_test/file.txt bs=1048576 count=500
0+500 records in
0+500 records out (2 Replies)
Heyas
I'm trying to read out a file which contains a variable and use that list to complete a bash command.
Difficult part on this is, that 2 (actualy 3) different lists are to be used, but the 'dynamic' ones from the external file dont work properly.
It only seems to work with the list... (2 Replies)
I'm currently running a CUPS server and it shows the printers on other computers just fine, but after a while they disappear. I found out, that restarting /etc/init.d/cups-browsed fixes the problem (for about 15min).
When the printers disappear, the cups-browsed service is still running, so I... (0 Replies)
Hello,
I have just installed ubuntu 16.04 into my pc.
Locally everything works fine, it takes data from internet, I am also able to connect to apache in the same local network. When I try to reach from mobile network, I can't establish ssh, apache site is not displaying in my browser etc.
... (17 Replies)
Discussion started by: baris35
17 Replies
LEARN ABOUT DEBIAN
log::any::test
Log::Any::Test(3pm) User Contributed Perl Documentation Log::Any::Test(3pm)NAME
Log::Any::Test -- Test what you're logging with Log::Any
SYNOPSIS
use Test::More;
use Log::Any::Test; # should appear before 'use Log::Any'!
use Log::Any qw($log);
# ...
# call something that logs using Log::Any
# ...
# now test to make sure you logged the right things
$log->contains_ok(qr/good log message/, "good message was logged");
$log->does_not_contain_ok(qr/unexpected log message/, "unexpected message was not logged");
$log->empty_ok("no more logs");
# or
my $msgs = $log->msgs;
cmp_deeply($msgs, [{message => 'msg1', level => 'debug'}, ...]);
DESCRIPTION
"Log::Any::Test" is a simple module that allows you to test what has been logged with Log::Any. Most of its API and implementation have
been taken from Log::Any::Dispatch.
Using "Log::Any::Test" sends all subsequent Log::Any log messages to a single global in-memory buffer. It should be used before Log::Any.
METHODS
The test_name is optional in the *_ok methods; a reasonable default will be provided.
msgs ()
Returns the current contents of the global log buffer as an array reference, where each element is a hash containing a category, level,
and message key. e.g.
{
category => 'Foo',
level => 'error',
message => 'this is an error'
},
{
category => 'Bar::Baz',
level => 'debug',
message => 'this is a debug'
}
contains_ok ($regex[, $test_name])
Tests that a message in the log buffer matches $regex. On success, the message is removed from the log buffer (but any other matches
are left untouched).
does_not_contain_ok ($regex[, $test_name])
Tests that no message in the log buffer matches $regex.
empty_ok ([$test_name])
Tests that there is no log buffer left. On failure, the log buffer is cleared to limit further cascading failures.
contains_only_ok ($regex[, $test_name])
Tests that there is a single message in the log buffer and it matches $regex. On success, the message is removed.
clear ()
Clears the log buffer.
SEE ALSO
Log::Any, Test::Log::Dispatch
AUTHOR
Jonathan Swartz
COPYRIGHT & LICENSE
Copyright (C) 2009 Jonathan Swartz, 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.10.1 2009-12-08 Log::Any::Test(3pm)