#

# Copyright 2005 Sun Microsystems, Inc. All rights reserved.

# Use is subject to license terms.

#

# CDDL HEADER START

#

# The contents of this file are subject to the terms of the

# Common Development and Distribution License, Version 1.0 only

# (the "License"). You may not use this file except in compliance

# with the License.

#

# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE

# or http://www.opensolaris.org/os/licensing.

# See the License for the specific language governing permissions

# and limitations under the License.

#

# When distributing Covered Code, include this CDDL HEADER in each

# file and include the License file at usr/src/OPENSOLARIS.LICENSE.

# If applicable, add the following below this CDDL HEADER, with the

# fields enclosed by brackets "[]" replaced with your own identifying

# information: Portions Copyright [yyyy] [name of copyright owner]

#

# CDDL HEADER END

#

#ident "%Z%%M% %I% %E% SMI"

#

# test script for Sun::Solaris::Kstat

#

use strict;

# Visit all the leaf nodes -

# will generate a die if there are any structure mismatches

sub visit_all($)

{

my ($ks) = @_;

foreach my $m (sort(keys(%$ks))) {

foreach my $i (sort(keys(%{$ks->{$m}}))) {

foreach my $n (sort(keys(%{$ks->{$m}->{$i}}))) {

foreach my $k (sort(

keys(%{$ks->{$m}->{$i}->{$n}}))) {

my $v = $ks->{$m}->{$i}->{$n}->{$k};

}

}

}

}

return(1);

}

BEGIN { $| = 1; print "1..15\n"; }

my $loaded;

END {print "not ok 1\n" unless $loaded;}

use Sun::Solaris::Kstat;

$loaded = 1;

print "ok 1\n";

# Check we can create a Kstat object OK

my ($test, $ks);

$test = 2;

if (! eval { $ks = Sun::Solaris::Kstat->new() }) {

print("not ok $test: $@");

} else {

print("ok $test\n");

}

$test++;

# Check FIRSTKEY/NEXTKEY/FETCH and for structure mismatches

if (! eval { visit_all($ks) }) {

print("not ok $test: $@");

} else {

print("ok $test\n");

}

$test++;

# Find a cpu number

my $cpu = (keys(%{$ks->{cpu_info}}))[0];

my $cpu_info = "cpu_info$cpu";

# Check EXISTS

if (exists($ks->{cpu_info}{$cpu}{$cpu_info}{state})) {

print("ok $test\n");

} else {

print("not ok $test\n");

}

$test++;

# Check DELETE

my $val = delete($ks->{cpu_info}{$cpu}{$cpu_info}{state});

if (defined($val) && ($val =~ /^on-line/ || $val =~ /^off-line/)) {

print("ok $test\n");

} else {

print("not ok $test ($val)\n");

}

$test++;

# 5.004_04 has a broken hv_delete

if ($] < 5.00405) {

print("ok $test\n");

$test++;

print("ok $test\n");

$test++;

} else {

if (! exists($ks->{cpu_info}{$cpu}{$cpu_info}{state})) {

print("ok $test\n");

} else {

print("not ok $test\n");

}

$test++;

$val = $ks->{cpu_info}{$cpu}{$cpu_info}{state};

if (! defined($val)) {

print("ok $test\n");

} else {

print("not ok $test\n");

}

$test++;

}

# Check STORE

$ks->{cpu_info}{$cpu}{$cpu_info}{state} = "california";

if ($ks->{cpu_info}{$cpu}{$cpu_info}{state} eq "california") {

print("ok $test\n");

} else {

print("not ok $test\n");

}

$test++;

# Check CLEAR

my @bvals = sort(keys(%{$ks->{cpu_info}{$cpu}{$cpu_info}}));

%{$ks->{cpu_info}{$cpu}{$cpu_info}} = ();

my @avals = sort(keys(%{$ks->{cpu_info}{$cpu}{$cpu_info}}));

while (@bvals || @avals) {

my $a = shift(@avals);

my $b = shift(@bvals);

if ($a ne $b) { print("not ok $test ($a ne $b)\n"); last; }

}

print("ok $test\n") if (! @avals && ! @bvals);

$test++;

# Check updates

if (! defined(eval { $ks->update() })) {

print("not ok $test: $@");

} else {

print("ok $test\n");

}

$test++;

# Check readonly-ness of hash structure

eval { $ks->{cpu_info}{$cpu}{$cpu_info} = {}; };

print($@ =~ /^Modification of a read-only/i ? "ok $test\n" : "not ok $test\n");

$test++;

eval { $ks->{cpu_info}{$cpu} = {}; };

print($@ =~ /^Modification of a read-only/i ? "ok $test\n" : "not ok $test\n");

$test++;

eval { $ks->{cpu_info} = {}; };

print($@ =~ /^Modification of a read-only/i ? "ok $test\n" : "not ok $test\n");

$test++;

# Check timestamps

my $then = $ks->{cpu_info}{$cpu}{$cpu_info}{snaptime};

sleep(3);

if (! defined(eval { $ks->update() })) {

print("not ok $test: $@");

} else {

print("ok $test\n");

}

$test++;

my $interval = $ks->{cpu_info}{$cpu}{$cpu_info}{snaptime} - $then;

if ($interval >= 2.5 && $interval <= 3.5) {

print("ok $test\n");

} else {

print("not ok $test\n");

}

$test++;

exit(0);