1N/A#
1N/A# Copyright (c) 2000, 2005 Oracle and/or its affiliates. All rights reserved.
1N/A#
1N/A
1N/A#
1N/A# test script for Sun::Solaris::Project
1N/A#
1N/A
1N/Ause warnings;
1N/Ause strict;
1N/Ause Data::Dumper;
1N/A$Data::Dumper::Terse = 1;
1N/A$Data::Dumper::Indent = 0;
1N/A
1N/Asub cleanup {
1N/A unlink("/tmp/project.$$.1");
1N/A unlink("/tmp/project.$$.2");
1N/A unlink("/tmp/project.$$.3");
1N/A unlink("/tmp/project.$$.4");
1N/A unlink("/tmp/project.$$.5");
1N/A unlink("/tmp/project.$$.1.w");
1N/A unlink("/tmp/project.$$.2.w");
1N/A unlink("/tmp/project.$$.3.w");
1N/A unlink("/tmp/project.$$.4.w");
1N/A unlink("/tmp/project.$$.5.w");
1N/A unlink("/tmp/projent.$$");
1N/A}
1N/A
1N/A# 'use Sun::Solaris::Project;' counts as test 1
1N/Aour $test = 1;
1N/Aour $intest = 1;
1N/Aour $loaded = 0;
1N/A
1N/A#
1N/A# Status reporting utils
1N/A#
1N/A# Expected calling sequence is:
1N/A# start()
1N/A# pass() or fail()
1N/A# start()
1N/A# pass() or fail()
1N/A# ...
1N/A# ...
1N/A#
1N/A# Calling start() twice in a row will fail test.
1N/A# Calling start() and then exiting will fail test.
1N/A#
1N/Asub start
1N/A{
1N/A if ($intest != 0) {
1N/A fatal("Started new test before finishing previous.");
1N/A }
1N/A $test++;
1N/A $intest = 1;
1N/A print "# Starting Test $test: @_\n" if (@_);
1N/A}
1N/A
1N/Asub pass
1N/A{
1N/A if ($intest == 0) {
1N/A fatal("pass() without start()");
1N/A }
1N/A print("ok $test @_\n");
1N/A $intest = 0;
1N/A}
1N/A
1N/Asub fail
1N/A{
1N/A if ($intest == 0) {
1N/A fatal("fail() without start()");
1N/A }
1N/A print("not ok $test @_\n");
1N/A $intest = 0;
1N/A}
1N/A
1N/Asub fatal
1N/A{
1N/A print(STDERR "FATAL!\n");
1N/A print("not ok $test @_\n");
1N/A exit(1);
1N/A}
1N/A
1N/Asub comment
1N/A{
1N/A print("# @_\n");
1N/A}
1N/A
1N/A#
1N/A# Read in a project file and build into the same data structure that we will
1N/A# get if we do the same with the getXXX functions
1N/A#
1N/A
1N/Asub read_pfile
1N/A{
1N/A my ($fh) = @_;
1N/A my ($line, @a1, @a2);
1N/A while (defined($line = <$fh>)) {
1N/A chomp($line);
1N/A @a2 = split(/:/, $line, 6);
1N/A $a2[2] = '' if (! defined($a2[2]));
1N/A $a2[3] = defined($a2[3]) ? [ split(/,/, $a2[3]) ] : [];
1N/A $a2[4] = defined($a2[4]) ? [ split(/,/, $a2[4]) ] : [];
1N/A $a2[5] = '' if (! defined($a2[5]));
1N/A push(@a1, [ @a2 ]);
1N/A }
1N/A return(\@a1);
1N/A}
1N/A
1N/A#
1N/A# Compare two arrays of project structures & check for equivalence.
1N/A# Converts each into a string using Data::Dumper and then does a string
1N/A# comparison. Dirty but effective :-)
1N/A#
1N/A
1N/Asub cmp_recs
1N/A{
1N/A my ($a1, $a2) = @_;
1N/A my $s1 = Dumper($a1);
1N/A my $s2 = Dumper($a2);
1N/A
1N/A # Make sure numbers and quoted numbers compare the same
1N/A $s1 =~ s/'([+-]?[\d.]+)'/$1/g;
1N/A $s2 =~ s/'([+-]?[\d.]+)'/$1/g;
1N/A
1N/A return($s1 eq $s2);
1N/A}
1N/A
1N/Asub hash2string
1N/A{
1N/A my ($key, $value);
1N/A my @strings;
1N/A my $string;
1N/A my $hash = $_[0];
1N/A foreach $key (keys(%$hash)) {
1N/A push(@strings, "$key => $hash->{$key}");
1N/A }
1N/A $string = "{ " . join(", ", @strings) . " }";
1N/A return ($string);
1N/A}
1N/A
1N/A#
1N/A# Main body of tests starts here.
1N/A#
1N/A
1N/A# Check the module loads.
1N/ABEGIN {
1N/A $| = 1;
1N/A print "1..548\n";
1N/A}
1N/A
1N/AEND {
1N/A fail("not ok 1") unless ($loaded);
1N/A fail("Exited during test!") if ($intest == 1);
1N/A cleanup();
1N/A}
1N/A
1N/Ause Sun::Solaris::Project qw(:ALL :PRIVATE);
1N/A$loaded = 1;
1N/Apass();
1N/A
1N/Astart("Check the constants.");
1N/Amy ($fh, $line, $n1, $n2, $n3, $s);
1N/Aopen($fh, "</usr/include/project.h") || fatal($!);
1N/Awhile (defined($line = <$fh>)) {
1N/A $n1 = $1 if ($line =~ /#define\s+PROJNAME_MAX\s+(\d+)/);
1N/A $n2 = $1 if ($line =~ /#define\s+PROJECT_BUFSZ\s+(\d+)/);
1N/A $s = $1 if ($line =~ /#define\s+PROJF_PATH\s+"([^"]+)"/);
1N/A}
1N/Aclose($fh);
1N/Aopen($fh, "</usr/include/sys/param.h") || fatal($!);
1N/Awhile (defined($line = <$fh>)) {
1N/A $n3 = $1 if ($line =~ /#define\s+MAXUID\s+(\d+)/);
1N/A}
1N/Aclose($fh);
1N/Aif (! defined($s) || ! defined($n1) || ! defined($n2)) {
1N/A fail();
1N/A} else {
1N/A if ($n1 == &PROJNAME_MAX && $n2 == &PROJECT_BUFSZ &&
1N/A $n3 == &MAXPROJID && $s eq &PROJF_PATH) {
1N/A pass();
1N/A } else {
1N/A fail();
1N/A }
1N/A}
1N/A
1N/A#
1N/A# projf_read on various files with various flags.
1N/A#
1N/A# This table represents when projf_read should fail given a file
1N/A# and flags.
1N/A#
1N/A# file/flags # {} validate validate,res validate,dup
1N/A# ###################################################################
1N/A# parse error # no no no no
1N/A# dup names # yes no no no
1N/A# dup ids # yes no no yes
1N/A# system ids # yes no yes no
1N/A# all user # yes yes yes yes
1N/A#
1N/A
1N/Amy $flags1 = {};
1N/Amy $flags2 = { "validate" => "true" };
1N/Amy $flags3 = { "validate" => "true", "res" => 1 };
1N/Amy $flags4 = { "validate" => "true", "dup" => 1 };
1N/A
1N/A# Make a temporary project files.
1N/Amy ($ret, $file1, $file2, $file3, $file4, $file5, $pass);
1N/A
1N/A# file1, parse error (extra ":") on group.staff project.
1N/Aopen($file1, "+>/tmp/project.$$.1") || fatal($!);
1N/Aprint $file1 <<EOF;
1N/Atest1:123:project one:root,bin:adm:attr1=a;attr2=b
1N/Auser.test2:456:project two:adm,uucp:staff:attr1=p;attr2=q
1N/Agroup.test3:678:project three::root,nobody:root,lp:attr1=y;attr2=z
1N/Atest4:678:project four:root:root:
1N/Atest5:679:project five::sys:
1N/Atest6:690::::
1N/AEOF
1N/A
1N/A# file2, duplicate project names.
1N/Aopen($file2, "+>/tmp/project.$$.2") || fatal($!);
1N/Aprint $file2 <<EOF;
1N/Atest1:123:project one:root,bin:adm:attr1=a;attr2=b
1N/Auser.test2:456:project two:adm,uucp:staff:attr1=p;attr2=q
1N/Agroup.test3:677:project three:root,nobody:root,lp:attr1=y;attr2=z
1N/Atest1:678:project four:root:root:
1N/Atest5:679:project five::sys:
1N/Atest6:690::::
1N/AEOF
1N/A
1N/A# file3, duplicate project ids.
1N/Aopen($file3, "+>/tmp/project.$$.3") || fatal($!);
1N/Aprint $file3 <<EOF;
1N/Atest1:123:project one:root,bin:adm:attr1=a;attr2=b
1N/Auser.test2:456:project two:adm,uucp:staff:attr1=p;attr2=q
1N/Agroup.test3:677:project three:root,nobody:root,lp:attr1=y;attr2=z
1N/Atest4:678:project four:root:root:
1N/Atest5:678:project five::sys:
1N/Atest6:690::::
1N/AEOF
1N/A
1N/A# file4, system project ids.
1N/Aopen($file4, "+>/tmp/project.$$.4") || fatal($!);
1N/Aprint $file4 <<EOF;
1N/Asystem:0::::
1N/Auser.root:1::::
1N/Anoproject:2::::
1N/Adefault:3::::
1N/Agroup.staff:10::::
1N/Atest1:123:project one:root,bin:adm:attr1=a;attr2=b
1N/Auser.test2:456:project two:adm,uucp:staff:attr1=p;attr2=q
1N/Agroup.test3:677:project three:root,nobody:root,lp:attr1=y;attr2=z
1N/Atest4:678:project four:root:root:
1N/Atest5:679:project five::sys:
1N/Atest6:690::::
1N/AEOF
1N/A
1N/A# file5, all unique user projects.
1N/Aopen($file5, "+>/tmp/project.$$.5") || fatal($!);
1N/Aprint $file5 <<EOF;
1N/Atest1:123:project one:root,bin:adm:attr1=a;attr2=b
1N/Auser.test2:456:project two:adm,uucp:staff:attr1=p;attr2=q
1N/Agroup.test3:677:project three:root,nobody:root,lp:attr1=y;attr2=z
1N/Atest4:678:project four:root:root:
1N/Atest5:679:project five::sys:
1N/Atest6:690::::
1N/AEOF
1N/A
1N/A#
1N/A# Each test is the file description, input file, filename, flags, and the expected
1N/A# return value.
1N/A#
1N/Amy @read_tests = (
1N/A [ "parse error", $file1, "/tmp/project.$$.1", $flags1, 1 ],
1N/A [ "parse error", $file1, "/tmp/project.$$.1", $flags2, 1 ],
1N/A [ "parse error", $file1, "/tmp/project.$$.1", $flags3, 1 ],
1N/A [ "parse error", $file1, "/tmp/project.$$.1", $flags4, 1 ],
1N/A [ "dup names", $file2, "/tmp/project.$$.2", $flags1, 0 ],
1N/A [ "dup names", $file2, "/tmp/project.$$.2", $flags2, 1 ],
1N/A [ "dup names", $file2, "/tmp/project.$$.2", $flags3, 1 ],
1N/A [ "dup names", $file2, "/tmp/project.$$.2", $flags4, 1 ],
1N/A [ "dup ids", $file3, "/tmp/project.$$.3", $flags1, 0 ],
1N/A [ "dup ids", $file3, "/tmp/project.$$.3", $flags2, 1 ],
1N/A [ "dup ids", $file3, "/tmp/project.$$.3", $flags3, 1 ],
1N/A [ "dup ids", $file3, "/tmp/project.$$.3", $flags4, 0 ],
1N/A [ "sys ids", $file4, "/tmp/project.$$.4", $flags1, 0 ],
1N/A [ "sys ids", $file4, "/tmp/project.$$.4", $flags2, 1 ],
1N/A [ "sys ids", $file4, "/tmp/project.$$.4", $flags3, 0 ],
1N/A [ "sys ids", $file4, "/tmp/project.$$.4", $flags4, 1 ],
1N/A [ "unique users", $file5, "/tmp/project.$$.5", $flags1, 0 ],
1N/A [ "unique users", $file5, "/tmp/project.$$.5", $flags2, 0 ],
1N/A [ "unique users", $file5, "/tmp/project.$$.5", $flags3, 0 ],
1N/A [ "unique users", $file5, "/tmp/project.$$.5", $flags4, 0 ]
1N/A);
1N/A
1N/Amy $projents;
1N/Amy @goodprojents;
1N/Amy $read_test;
1N/Amy $desc;
1N/Amy $file;
1N/Amy $filename;
1N/Amy $flags;
1N/Amy $flagstring;
1N/Amy $exp;
1N/Amy $error;
1N/A
1N/A# Do projf_read tests.
1N/Aforeach $read_test (@read_tests) {
1N/A
1N/A ($desc, $file, $filename, $flags, $exp) = @$read_test;
1N/A $flagstring = hash2string($flags);
1N/A start("projf_read(): $desc, flags: $flagstring, file: $filename");
1N/A
1N/A seek($file, 0, 0);
1N/A
1N/A ($ret, $projents) = projf_read($file, $flags);
1N/A # check return is expected result
1N/A if ($ret != $exp) {
1N/A fail("Expected $exp, Returned $ret");
1N/A if ($ret) {
1N/A foreach $error (@$projents) {
1N/A comment("# " . join(", ", @$error));;
1N/A }
1N/A }
1N/A next;
1N/A }
1N/A # verify either projents or error messages were returned
1N/A if (!(@$projents)) {
1N/A fail("Missing projents or error messages");
1N/A next;
1N/A }
1N/A pass();
1N/A
1N/A # Save projents from successful reads for testing projf_write.
1N/A if ($ret == 0) {
1N/A push(@goodprojents, [$desc, $flags, $projents, $filename]);
1N/A }
1N/A}
1N/A
1N/Aclose($file1);
1N/Aclose($file2);
1N/Aclose($file3);
1N/Aclose($file4);
1N/Aclose($file5);
1N/A
1N/A# Test projf_write, write each successfully read file.
1N/A
1N/Amy @write_tests;
1N/Amy $write_test;
1N/A
1N/Aforeach $write_test (@goodprojents) {
1N/A
1N/A ($desc, $flags, $projents, $filename) = @$write_test;
1N/A $flagstring = hash2string($flags);
1N/A start("projf_write(): $desc, flags: $flagstring, file: $filename");
1N/A
1N/A open($fh, ">$filename.w") || fatal($!);
1N/A
1N/A projf_write($fh, $projents);
1N/A close($fh);
1N/A system("cmp -s $filename $filename.w") == 0 ? pass() :
1N/A fail("Written file $filename.w does not match file $filename");
1N/A}
1N/A
1N/A# Tests for projent_parse and projent_validate.
1N/A
1N/Amy @projent_tests;
1N/Amy $projent_test;
1N/A
1N/A#
1N/A# Tests, in format:
1N/A#
1N/A# [ parse_result_expected, validate_result_expected, flags, project-line ]
1N/A#
1N/A@projent_tests = (
1N/A
1N/A# positive
1N/A
1N/A [ 0, 0, { "res" => 1 }, "system:0::::" ],
1N/A [ 0, 0, { "res" => 1 }, "user.root:1::::" ],
1N/A [ 0, 0, { "res" => 1 }, "noproject:2::::" ],
1N/A [ 0, 0, { "res" => 1 }, "default:3::::" ],
1N/A [ 0, 0, { "res" => 1 }, "group.staff:10::::" ],
1N/A [ 0, 0, {}, "long:100::::" . "a" x 2048 ],
1N/A [ 0, 0, {}, "Validname:101::::" ],
1N/A [ 0, 0, {}, "Validname2:102::::" ],
1N/A [ 0, 0, {}, "valid3name:103::::" ],
1N/A [ 0, 0, {}, "VALIDNAME:104::::" ],
1N/A [ 0, 0, {}, "VALIDNAME5:105::::" ],
1N/A [ 0, 0, {}, "vAlid5name:106::::" ],
1N/A [ 0, 0, {}, "valid.name:107::::" ],
1N/A [ 0, 0, {}, "valid8.NAME:108::::" ],
1N/A [ 0, 0, {}, "Valid_name9:109::::" ],
1N/A [ 0, 0, {}, "V_alid.name10:110::::" ],
1N/A [ 0, 0, {}, "valid12345678901234567890123456789012345678901234567890123456789:111::::" ],
1N/A [ 0, 0, {}, "projid:2147483647::::" ],
1N/A [ 0, 0, {}, "comment:111: this is ! & my crazy !@#$%^&*()_+|~`\=-][ 0, 0, {},}{';\"/.,?>< comment:::" ],
1N/A [ 0, 0, {}, "user1:112::*::" ],
1N/A [ 0, 0, {}, "user2:113::!*::" ],
1N/A [ 0, 0, {}, "user3:114::root::" ],
1N/A [ 0, 0, {}, "user4:115::!root::" ],
1N/A [ 0, 0, {}, "user5:116::*,!sys::" ],
1N/A [ 0, 0, {}, "user6:117::!*,daemon::" ],
1N/A [ 0, 0, {}, "user7:118::root,sys,daemon,bin::" ],
1N/A [ 0, 0, {}, "user8:119::root,!sys,daemon,!bin::" ],
1N/A [ 0, 0, { "allowspaces" => 1 }, "user9:116::*, !sys::" ],
1N/A [ 0, 0, { "allowspaces" => 1 }, "user10:117::!* ,daemon::" ],
1N/A [ 0, 0, { "allowspaces" => 1 }, "user11:118::root ,sys ,daemon, bin::" ],
1N/A [ 0, 0, { "allowspaces" => 1 }, "user12:119::root, !sys, daemon ,!bin::" ],
1N/A [ 0, 0, {}, "group1:120:::*:" ],
1N/A [ 0, 0, {}, "group2:121:::!*:" ],
1N/A [ 0, 0, {}, "group3:122:::root:" ],
1N/A [ 0, 0, {}, "group4:123:::!root:" ],
1N/A [ 0, 0, {}, "group5:124:::*,!sys:" ],
1N/A [ 0, 0, {}, "group6:125:::!*,daemon:" ],
1N/A [ 0, 0, {}, "group7:126:::root,sys,daemon,bin:" ],
1N/A [ 0, 0, {}, "group8:127:::root,!sys,daemon,!bin:" ],
1N/A [ 0, 0, { "allowspaces" => 1 }, "group9:124:::*, !sys:" ],
1N/A [ 0, 0, { "allowspaces" => 1 }, "group10:125:::!* ,daemon:" ],
1N/A [ 0, 0, { "allowspaces" => 1 }, "group11:126:::root, sys ,daemon, bin:" ],
1N/A [ 0, 0, { "allowspaces" => 1 }, "group12:127:::root ,!sys, daemon ,!bin:" ],
1N/A [ 0, 0, {}, "group9:128:::sys:" ],
1N/A [ 0, 0, {}, "attrib1:129::::one" ],
1N/A [ 0, 0, {}, "attrib2:130::::One" ],
1N/A [ 0, 0, {}, "attrib3:131::::ONE" ],
1N/A [ 0, 0, {}, "attrib4:132::::attrib10" ],
1N/A [ 0, 0, {}, "attrib5:133::::attrib.attrib=" ],
1N/A [ 0, 0, {}, "attrib6:134::::attib_" ],
1N/A [ 0, 0, {}, "attrib7:135::::a10-._attib" ],
1N/A [ 0, 0, {}, "attrib8:136::::SUNW,attrib" ],
1N/A [ 0, 0, {}, "attrib9:137::::A,A10=" ],
1N/A [ 0, 0, {}, "attrib10:138::::FIVEE,name" ],
1N/A [ 0, 0, {}, "attrib11:139::::one;two" ],
1N/A [ 0, 0, {}, "attrib12:140::::one=1;two=four" ],
1N/A [ 0, 0, {}, "attrib13:141::::one;two=;three=four" ],
1N/A [ 0, 0, {}, "value1:142::::one=foo,bar" ],
1N/A [ 0, 0, {}, "value2:143::::one=,bar," ],
1N/A [ 0, 0, {}, "value3:144::::one=(foo,bar)" ],
1N/A [ 0, 0, {}, "value4:145::::one=(foo,bar,baz),boo" ],
1N/A [ 0, 0, {}, "value5:146::::one;two=bar,(baz),foo,((baz)),(,)" ],
1N/A [ 0, 0, {}, "value6:147::::one=100/200" ],
1N/A [ 0, 0, {}, "value7:148::::two=.-_/=" ],
1N/A [ 0, 0, {}, "value8:149::::name=one=two" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "value9:150::::task.max-lwps=(priv,1000M,deny,signal=SIGHUP),(priv,1000k,deny,signal=SIGKILL)" ],
1N/A [ 0, 0, {}, "comma1:151::,::" ],
1N/A [ 0, 0, {}, "comma2:152::,,::" ],
1N/A [ 0, 0, {}, "comma3:153::root,::" ],
1N/A [ 0, 0, {}, "comma4:154::bin,root,,::" ],
1N/A [ 0, 0, {}, "comma5:155:::,:" ],
1N/A [ 0, 0, {}, "comma6:156:::,,:" ],
1N/A [ 0, 0, {}, "comma7:157:::bin,root,:" ],
1N/A [ 0, 0, {}, "comma8:158:::root,,:" ],
1N/A [ 0, 0, {}, "semi1:159::::;" ],
1N/A [ 0, 0, {}, "semi2:160::::;;" ],
1N/A [ 0, 0, {}, "semi3:161::::foo=(one,two);" ],
1N/A [ 0, 0, {}, "semi4:162::::foo;;" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl1:163::::task.max-lwps=(priv,1000,deny,signal=HUP),(priv,1000k,deny,signal=15)" ],
1N/A [ 0, 0, {}, "rctl1:163::::task.max-lwps=(priv,1000,deny,signal=HUP),(priv,10001,deny,signal=15)" ],
1N/A [ 0, 0, {}, "rctl2:164::::process.max-port-events=(basic,1000,deny)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl3:165::::project.max-crypto-memory=(priv,2.2gb,deny)" ],
1N/A [ 0, 0, {}, "rctl3:165::::project.max-crypto-memory=(priv,10,deny)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl4:166::::project.max-crypto-memory=(privileged,100m,deny)" ],
1N/A [ 0, 0, {}, "rctl4:166::::project.max-crypto-memory=(privileged,100,deny)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl5:167::::project.max-crypto-memory=(priv,1000m,deny)" ],
1N/A [ 0, 0, {}, "rctl5:167::::project.max-crypto-memory=(priv,1000,deny)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl6:168::::project.max-crypto-memory=(priv,1000k,deny)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl6:168::::project.max-crypto-memory=(priv,1000m,deny)" ],
1N/A [ 0, 0, {}, "rctl7:169::::process.max-msg-messages=(priv,10,deny)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl8:170::::process.max-msg-qbytes=(priv,10000kb,deny)" ],
1N/A [ 0, 0, {}, "rctl8:170::::process.max-msg-qbytes=(priv,10000,deny)" ],
1N/A [ 0, 0, {}, "rctl9:171::::process.max-sem-ops=(priv,10000000,deny)" ],
1N/A [ 0, 0, {}, "rctl10:172::::process.max-sem-nsems=(basic,1,deny)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl11:173::::process.max-address-space=(priv,2GB,deny)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl12:174::::process.max-file-descriptor=(basic,1K,deny),(basic,2K,deny)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl13:175::::process.max-core-size=(priv,10Mb,deny),(priv,2GB,deny)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl14:176::::process.max-stack-size=(priv,1.8Gb,deny),(priv,100MB,deny)" ],
1N/A [ 0, 0, {}, "rctl15:177::::process.max-data-size=(priv,1010100101,deny)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl16:178::::process.max-file-size=(priv,100mb,deny,signal=SIGXFSZ),(priv,1000mb,deny,signal=31)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl17:179::::process.max-cpu-time=(priv,1t,signal=XCPU),(priv,100ms,sig=30)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl18:180::::task.max-cpu-time=(priv,1M,sig=SIGKILL)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl19:181::::task.max-lwps=(basic,10,signal=1),(priv,100,deny,signal=KILL)" ],
1N/A [ 0, 0, {}, "rctl20:182::::project.max-device-locked-memory=(priv,1000,deny,sig=TERM)" ],
1N/A [ 0, 0, {}, "rctl21:183::::project.max-port-ids=(priv,100,deny)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl22:184::::project.max-shm-memory=(priv,1000mb,deny)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl23:185::::project.max-shm-ids=(priv,1k,deny,signal=SIGSTOP)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl24:186::::project.max-msg-ids=(priv,1m,deny,signal=XRES)" ],
1N/A [ 0, 0, {}, "rctl25:187::::project.max-sem-ids=(priv,10,deny,signal=ABRT)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl26:188::::project.cpu-shares=(priv,63k,none)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl27:189::::zone.cpu-shares=(priv,20k,none)" ],
1N/A [ 0, 0, {}, "rctl28:190::::zone.cpu-shares=(priv,100,none)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl29:191::::project.max-shm-memory=(priv,200G,deny)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl30:192::::project.max-shm-memory=(priv,200Gb,deny)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl31:193::::project.max-shm-memory=(priv,2000B,deny)" ],
1N/A [ 0, 0, {}, "rctl32:194::::project.max-shm-memory=(priv,2000,deny)" ],
1N/A [ 0, 0, {}, "rctl33:195::::task.max-cpu-time=(priv,2000,none)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl34:196::::task.max-cpu-time=(priv,2000s,none)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl35:197::::task.max-cpu-time=(priv,20.1ps,none)" ],
1N/A [ 0, 0, { "allowunits" => 1 }, "rctl36:198::::task.max-cpu-time=(priv,20T,none)" ],
1N/A
1N/A# negative
1N/A
1N/A [ 0, 1, {}, "system:0::::" ],
1N/A [ 0, 1, {}, "user.root:1::::" ],
1N/A [ 0, 1, {}, "noproject:2::::" ],
1N/A [ 0, 1, {}, "default:3::::" ],
1N/A [ 0, 1, {}, "group.staff:10::::" ],
1N/A [ 0, 1, {}, "long:100::::" . "a" x 4096 ],
1N/A [ 1, 0, {}, "extrafields:101:::::" ],
1N/A [ 1, 0, {}, "missingfields:102:::" ],
1N/A [ 1, 0, {}, "_invalidname:103::::" ],
1N/A [ 1, 0, {}, "10invlidname:104::::" ],
1N/A [ 1, 0, {}, "invalid%name:105::::" ],
1N/A [ 1, 0, {}, "invalid/name:106::::" ],
1N/A [ 1, 0, {}, ".invalidname:107::::" ],
1N/A [ 1, 0, {}, "=invalidName:108::::" ],
1N/A [ 1, 0, {}, "invalid=name:109::::" ],
1N/A [ 1, 0, {}, "invalid/name:110::::" ],
1N/A [ 1, 0, {}, "/invalidname:111::::" ],
1N/A [ 1, 0, {}, "/invalidname:112::::" ],
1N/A [ 1, 0, {}, "invalidname*:113::::" ],
1N/A [ 1, 0, {}, "invalid?name:114::::" ],
1N/A [ 1, 0, {}, ":115:invalid name comment:::" ],
1N/A [ 1, 0, {}, "invalid!name:116::::" ],
1N/A [ 1, 0, {}, "invalidname!:117::::" ],
1N/A [ 1, 0, {}, "invalid12345678901234567890123456789012345678901234567890123456789:118::::" ],
1N/A [ 1, 0, {}, "projid:-1::::" ],
1N/A [ 1, 0, {}, "projid:abc::::" ],
1N/A [ 1, 0, {}, "projid:2147483648::::" ],
1N/A [ 1, 0, {}, "projid:::::" ],
1N/A [ 1, 0, {}, "user1:118::*!::" ],
1N/A [ 1, 0, {}, "user2:119::10user::" ],
1N/A [ 0, 1, {}, "user3:120::NOLOWER::" ],
1N/A [ 0, 1, {}, "user4:121::toooolong::" ],
1N/A [ 1, 0, {}, "user5:122::root!::" ],
1N/A [ 1, 0, {}, "user6:123::root;sys::" ],
1N/A [ 0, 1, {}, "user7:124::sys,NOLOWER::" ],
1N/A [ 1, 0, {}, "user8:125::sys/bin,root::" ],
1N/A [ 1, 0, {}, "user9:116::*, !sys::" ],
1N/A [ 1, 0, {}, "user10:117::!* ,daemon::" ],
1N/A [ 1, 0, {}, "user11:118::root ,sys ,daemon, bin::" ],
1N/A [ 1, 0, {}, "user12:119::root, !sys, daemon ,!bin::" ],
1N/A [ 1, 0, {}, "group1:126:::*!:" ],
1N/A [ 0, 1, {}, "group2:127:::oneUpper:" ],
1N/A [ 0, 1, {}, "group3:128:::NOLOWER:" ],
1N/A [ 0, 1, {}, "group4:129:::toooolong:" ],
1N/A [ 1, 0, {}, "group5:130:::root!:" ],
1N/A [ 1, 0, {}, "group6:131:::root;sys:" ],
1N/A [ 0, 1, {}, "group7:132:::sys,NOLOWER:" ],
1N/A [ 1, 0, {}, "group8:133:::sys-bin,root:" ],
1N/A [ 1, 0, {}, "group9:124:::*, !sys:" ],
1N/A [ 1, 0, {}, "group10:125:::!* ,daemon:" ],
1N/A [ 1, 0, {}, "group11:126:::root, sys ,daemon, bin:" ],
1N/A [ 1, 0, {}, "group12:127:::root ,!sys, daemon ,!bin:" ],
1N/A [ 1, 0, {}, "attrib1:134::::10" ],
1N/A [ 1, 0, {}, "attrib2:135::::_foo=" ],
1N/A [ 1, 0, {}, "attrib3:136::::,foo" ],
1N/A [ 1, 0, {}, "attrib4:137::::sun,foo" ],
1N/A [ 1, 0, {}, "attrib6:139::::!attrib" ],
1N/A [ 1, 0, {}, "attrib7:140::::_attrib" ],
1N/A [ 1, 0, {}, "attrib8:141::::attib,attrib" ],
1N/A [ 1, 0, {}, "attrib9:142::::attrib/attrib" ],
1N/A [ 1, 0, {}, "attrib10:143::::one;two,three" ],
1N/A [ 1, 0, {}, "attrib11:144::::one=two;three/" ],
1N/A [ 1, 0, {}, "value1:145::::one=foo%" ],
1N/A [ 1, 0, {}, "value2:146::::one= two" ],
1N/A [ 1, 0, {}, "value3:147::::var=foo?" ],
1N/A [ 1, 0, {}, "value4:148::::name=value;name=value2)" ],
1N/A [ 1, 0, {}, "value5:149::::(foo)" ],
1N/A [ 1, 0, {}, "value6:150::::name=(foo,bar" ],
1N/A [ 1, 0, {}, "value7:151::::name=(value)(value)" ],
1N/A [ 1, 0, {}, "value8:152::::name=)" ],
1N/A [ 1, 0, {}, "value9:153::::name=value,(value value)" ],
1N/A [ 1, 0, {}, "value10:154::::name=(value(value))" ],
1N/A [ 1, 0, {}, "value11:155::::name=(value)value" ],
1N/A [ 1, 0, {}, "value11:156::::name=va?lue" ],
1N/A [ 1, 0, {}, "value12:157::::name=(value,value))" ],
1N/A [ 1, 0, {}, "value13:158::::name=(value),value)" ],
1N/A [ 1, 0, {}, "space1 :159::::" ],
1N/A [ 1, 0, {}, " space2:160::::" ],
1N/A [ 1, 0, {}, "space3: 161::::" ],
1N/A [ 1, 0, {}, "space4:162 ::::" ],
1N/A [ 1, 0, {}, "space 5:163::::" ],
1N/A [ 1, 0, {}, "space6:1 64::::" ],
1N/A [ 1, 0, {}, "space7:165:: root::" ],
1N/A [ 1, 0, {}, "space8:166::root ::" ],
1N/A [ 1, 0, {}, "space9:167::daemon, root::" ],
1N/A [ 1, 0, {}, "space10:168::bin root::" ],
1N/A [ 1, 0, {}, "space11:169::daemon ,root::" ],
1N/A [ 1, 0, {}, "space12 :170::::" ],
1N/A [ 1, 0, {}, " space13:171::::" ],
1N/A [ 1, 0, {}, "space14: 172::::" ],
1N/A [ 1, 0, {}, "space15:173 ::::" ],
1N/A [ 1, 0, {}, "space 16:174::::" ],
1N/A [ 1, 0, {}, "space17:1 75::::" ],
1N/A [ 1, 0, {}, "space18:176::: root:" ],
1N/A [ 1, 0, {}, "space19:177:::root :" ],
1N/A [ 1, 0, {}, "space20:178:::daemon, root:" ],
1N/A [ 1, 0, {}, "space21:179:::bin root:" ],
1N/A [ 1, 0, {}, "space22:180:::daemon ,root:" ],
1N/A [ 1, 0, {}, "space23:181:::: foo" ],
1N/A [ 1, 0, {}, "space34:182::::foo =one" ],
1N/A [ 1, 0, {}, "space35:183::::foo= (one)" ],
1N/A [ 1, 0, {}, "space36:184::::foo=(one, two)" ],
1N/A [ 1, 0, {}, "space37:185::::foo=(one ,two)" ],
1N/A [ 1, 0, {}, "space38:186::::foo=( one)" ],
1N/A [ 1, 0, {}, "space39:187::::foo=(one )" ],
1N/A [ 1, 0, {}, "space40:188::::foo=(one) ,two" ],
1N/A [ 1, 0, {}, "space41:189::::foo=one, (two)" ],
1N/A [ 1, 0, {}, "comma1:190::,root,bin::" ],
1N/A [ 1, 0, {}, "comma2:191::root,,bin::" ],
1N/A [ 1, 0, {}, "comma3:192::,,root,bin::" ],
1N/A [ 1, 0, {}, "comma4:193:::,root,bin:" ],
1N/A [ 1, 0, {}, "comma5:194:::root,,bin:" ],
1N/A [ 1, 0, {}, "comma6:195:::,,root,bin:" ],
1N/A [ 1, 0, {}, "semi1:196::::;foo" ],
1N/A [ 1, 0, {}, "semi2:197::::foo;;bar=1" ],
1N/A [ 1, 0, {}, "semi3:198::::;;bar=(10)" ],
1N/A [ 0, 1, {}, "rctl1:199::::task.max-lwps=," ],
1N/A [ 0, 1, {}, "rctl2:200::::task.max-lwps=" ],
1N/A [ 0, 1, {}, "rctl3:201::::task.max-lwps=priv" ],
1N/A [ 0, 1, {}, "rctl4:202::::task.max-lwps=priv,1000" ],
1N/A [ 0, 1, {}, "rctl5:203::::task.max-lwps=priv,1000,deny" ],
1N/A [ 0, 1, {}, "rctl6:204::::task.max-lwps=(priv)" ],
1N/A [ 0, 1, {}, "rctl7:205::::task.max-lwps=(priv,1000)" ],
1N/A [ 0, 1, {}, "rctl8:206::::task.max-lwps=(foo,100,deny)" ],
1N/A [ 0, 1, {}, "rctl9:207::::task.max-lwps=(priv,foo,none)" ],
1N/A [ 1, 0, { "allowunits" => 1 }, "rctl9:207::::task.max-lwps=(priv,foo,none)" ],
1N/A [ 1, 0, { "allowunits" => 1 }, "rctl10:208::::task.max-lwps=(priv,100foo,none)" ],
1N/A [ 0, 1, {}, "rctl11:209::::task.max-lwps=(priv,1000,foo)" ],
1N/A [ 0, 1, { "allowunits" => 1 }, "rctl12:210::::task.max-lwps=(priv,1000k,deny,signal)" ],
1N/A [ 0, 1, {}, "rctl13:211::::task.max-lwps=(priv,1000,deny,signal=)" ],
1N/A [ 0, 1, {}, "rctl14:212::::task.max-lwps=(priv,1000,deny,signal=foo)" ],
1N/A [ 0, 1, {}, "rctl15:213::::task.max-lwps=(priv,1000,deny,signal=1fo)" ],
1N/A [ 0, 1, {}, "rctl16:214::::task.max-lwps=(priv,1000,deny,signal=100)" ],
1N/A [ 0, 1, {}, "rctl17:215::::task.max-lwps=(priv,1000,deny,signal=SIG)" ],
1N/A [ 0, 1, {}, "rctl18:216::::task.max-lwps=(priv,1000,deny,signal=SIG1)" ],
1N/A [ 0, 1, {}, "rctl19:217::::task.max-lwps=(priv,1000,deny,signal=SIGhup)" ],
1N/A [ 0, 1, {}, "rctl20:218::::task.max-lwps=(priv,1000,deny,signal=SIGHU)" ],
1N/A [ 0, 1, {}, "rctl21:219::::task.max-lwps=(priv,1000,deny,signal=SIGHUPP)" ],
1N/A [ 0, 1, {}, "rctl22:220::::task.max-lwps=(priv,1000,deny,signal=SIGURG)" ],
1N/A [ 0, 1, {}, "rctl23:221::::task.max-lwps=(priv,1000,deny,signal=SIGXCPU)" ],
1N/A [ 0, 1, {}, "rctl24:222::::task.max-lwps=(priv,1000,deny,signal=SIGKILL,10)" ],
1N/A [ 0, 1, {}, "rctl25:223::::task.max-lwps=(priv,1000,deny,signal=SIGKILL,foo)" ],
1N/A [ 0, 1, {}, "rctl26:224::::process.max-port-events=(priv,1000,none)" ],
1N/A [ 0, 1, { "allowunits" => 1 }, "rctl27:225::::process.max-address-space=(basic,1024mb,deny,signal=TERM)" ],
1N/A [ 0, 1, {}, "rctl28:226::::process.max-cpu-time=(basic,3600,deny)" ],
1N/A [ 0, 1, {}, "rctl29:227::::task.max-lwps=()" ],
1N/A [ 0, 1, {}, "rctl30:228::::task.max-lwps=((priv),deny)" ],
1N/A [ 0, 1, {}, "rctl31:229::::task.max-lwps=((priv,1000,deny))" ],
1N/A [ 0, 1, {}, "rctl32:230::::task.max-lwps=(priv,((1000,2000,1000)),deny)" ],
1N/A [ 0, 1, {}, "rctl33:231::::task.max-lwps=(,,,)" ],
1N/A [ 0, 1, {}, "rctl34:232::::task.max-lwps=(priv,1000,(deny))" ],
1N/A [ 0, 1, {}, "rctl35:233::::task.max-lwps=(priv,1000,deny),foo" ],
1N/A [ 0, 1, {}, "rctl36:234::::task.max-lwps=(priv,1000,deny),(priv,1000)" ],
1N/A [ 1, 0, { "allowunits" => 1 }, "rctl37:235::::project.max-msg-ids=(priv,15EB,deny)" ],
1N/A [ 1, 0, { "allowunits" => 1 }, "rctl38:236::::process.max-address-space=(priv,16.1EB,deny)" ],
1N/A [ 1, 0, { "allowunits" => 1 }, "rctl39:237::::process.max-address-space=(priv,18000000000gb,deny)" ],
1N/A [ 1, 0, { "allowunits" => 1 }, "rctl40:238::::zone.cpu-shares=(priv,10kb,none)" ],
1N/A [ 1, 0, { "allowunits" => 1 }, "rctl41:239::::zone.cpu-shares=(priv,10Ks,none)" ],
1N/A [ 1, 0, { "allowunits" => 1 }, "rctl42:240::::zone.cpu-shares=(priv,10s,none)" ],
1N/A [ 1, 0, { "allowunits" => 1 }, "rctl43:241::::zone.cpu-shares=(priv,100000b,none)" ],
1N/A [ 1, 0, { "allowunits" => 1 }, "rctl44:242::::project.max-shm-memory=(priv,200Ts,deny)" ],
1N/A [ 1, 0, { "allowunits" => 1 }, "rctl45:243::::project.max-shm-memory=(priv,200s,deny)" ],
1N/A [ 1, 0, { "allowunits" => 1 }, "rctl46:244::::task.max-cpu-time=(priv,20B,none)" ],
1N/A [ 1, 0, { "allowunits" => 1 }, "rctl47:245::::task.max-cpu-time=(priv,20Kb,none)" ],
1N/A [ 0, 1, { "allowunits" => 1 }, "rctl48:246::::project.cpu-shares=(priv,100k,none)" ],
1N/A [ 0, 1, {}, "rctl147:150::::task.max-lwps=(priv,1000M,deny,signal=SIGHUP),(priv,1000k,deny,signal=SIGKILL)" ],
1N/A [ 0, 1, {}, "rctl148:163::::task.max-lwps=(priv,1000,deny,signal=HUP),(priv,1000k,deny,signal=15)" ],
1N/A [ 0, 1, {}, "rctl3:165::::project.max-crypto-memory=(priv,10eb,deny)" ],
1N/A [ 0, 1, {}, "rctl4:166::::project.max-crypto-memory=(privileged,100p,deny)" ],
1N/A [ 0, 1, {}, "rctl5:167::::project.max-crypto-memory=(priv,1000t,deny)" ],
1N/A [ 0, 1, {}, "rctl6:168::::project.max-crypto-memory=(priv,1000g,deny)" ],
1N/A [ 0, 1, {}, "rctl7:169::::process.max-msg-messages=(priv,10m,deny)" ],
1N/A [ 0, 1, {}, "rctl8:170::::process.max-msg-qbytes=(priv,10000kb,deny)" ],
1N/A [ 0, 1, {}, "rctl11:173::::process.max-address-space=(priv,10EB,deny)" ],
1N/A [ 0, 1, {}, "rctl12:174::::process.max-file-descriptor=(basic,1K,deny),(basic,2K,deny)" ],
1N/A [ 0, 1, {}, "rctl13:175::::process.max-core-size=(priv,1Eb,deny),(priv,10PB,deny)" ],
1N/A [ 0, 1, {}, "rctl14:176::::process.max-stack-size=(priv,10Tb,deny),(priv,10TB,deny)" ],
1N/A [ 0, 1, {}, "rctl16:178::::process.max-file-size=(priv,100mb,deny,signal=SIGXFSZ),(priv,1000mb,deny,signal=31)" ],
1N/A [ 0, 1, {}, "rctl17:179::::process.max-cpu-time=(priv,1t,signal=XCPU),(priv,100ms,sig=30)" ],
1N/A [ 0, 1, {}, "rctl18:180::::task.max-cpu-time=(priv,1M,sig=SIGKILL)" ],
1N/A [ 0, 1, {}, "rctl22:184::::project.max-shm-memory=(priv,1000mb,deny)" ],
1N/A [ 0, 1, {}, "rctl23:185::::project.max-shm-ids=(priv,1k,deny,signal=SIGSTOP)" ],
1N/A [ 0, 1, {}, "rctl24:186::::project.max-msg-ids=(priv,1m,deny,signal=XRES)" ],
1N/A [ 0, 1, {}, "rctl26:188::::project.cpu-shares=(priv,63k,none)" ],
1N/A [ 0, 1, {}, "rctl27:189::::zone.cpu-shares=(priv,20k,none)" ],
1N/A [ 0, 1, {}, "rctl29:191::::project.max-shm-memory=(priv,200G,deny)" ],
1N/A [ 0, 1, {}, "rctl30:192::::project.max-shm-memory=(priv,200Gb,deny)" ],
1N/A [ 0, 1, {}, "rctl31:193::::project.max-shm-memory=(priv,2000B,deny)" ],
1N/A [ 0, 1, {}, "rctl34:196::::task.max-cpu-time=(priv,2000s,none)" ],
1N/A [ 0, 1, {}, "rctl35:197::::task.max-cpu-time=(priv,20.1ps,none)" ],
1N/A [ 0, 1, {}, "rctl36:198::::task.max-cpu-time=(priv,20T,none)" ],
1N/A);
1N/A
1N/Amy $parse_exp;
1N/Amy $parse_ret;
1N/Amy $validate_exp;
1N/Amy $validate_ret;
1N/Amy $project;
1N/Amy $projent;
1N/Amy $errors;
1N/A
1N/Aforeach $projent_test ( @projent_tests) {
1N/A
1N/A ($parse_exp, $validate_exp, $flags, $project) = @$projent_test;
1N/A $flagstring = hash2string($flags);
1N/A start("projent_parse(): flags: $flagstring, project: $project");
1N/A ($ret, $projent) = projent_parse($project, $flags);
1N/A if ($ret != $parse_exp) {
1N/A fail("Expected $parse_exp, Returned $ret");
1N/A if ($ret) {
1N/A foreach $error (@$projent) {
1N/A comment("# " . join(", ", @$error));
1N/A }
1N/A }
1N/A next;
1N/A }
1N/A pass();
1N/A
1N/A # projent_validate() can only be successfully parsed projents
1N/A if ($ret) {
1N/A next;
1N/A }
1N/A
1N/A start("projent_validate(): flags: $flagstring, project: $project");
1N/A ($ret, $errors) = projent_validate($projent, $flags);
1N/A if ($ret != $validate_exp) {
1N/A fail("Expected $validate_exp, Returned $ret");
1N/A if ($ret) {
1N/A foreach $error (@$errors) {
1N/A comment("# " . join(", ", @$error));
1N/A }
1N/A }
1N/A next;
1N/A }
1N/A pass();
1N/A}
1N/A
1N/Amy $pf1;
1N/Amy $pf2;
1N/Amy $fh1;
1N/Amy $fh2;
1N/Amy @lines;
1N/A
1N/A# get projects and make local copy
1N/Aopen($fh1, "/usr/bin/getent project |") || fatal($!);
1N/Aopen($fh2, ">/tmp/projent.$$") || fatal($!);
1N/A@lines = <$fh1>;
1N/Aprint $fh2 @lines;
1N/Aclose($fh1);
1N/Aclose($fh2);
1N/A
1N/Aopen($fh1, "</tmp/projent.$$") || fatal($!);
1N/A$pf1 = read_pfile($fh1);
1N/Aclose($fh1);
1N/A
1N/A
1N/Astart("Test getprojid");
1N/A($s) = `/usr/xpg4/bin/id -p` =~ /projid=(\d+)/;
1N/Adefined($s) && $s == getprojid() ? pass() : fail();
1N/A
1N/Astart("Test fgetprojent");
1N/A$pf2 = [];
1N/Aopen($fh, "</tmp/projent.$$") || fatal($!);
1N/Awhile (my @proj = fgetprojent($fh)) {
1N/A push(@$pf2, [ @proj ]);
1N/A}
1N/Aclose($fh);
1N/Acmp_recs($pf1, $pf2) ? pass() : fail();
1N/A
1N/Amy %pf_byname = map({ $_->[0] => $_} @$pf1);
1N/Amy %pf_byid = map({ $_->[1] => $_} @$pf1);
1N/Amy (%h, @a1, @a2, $k, $v);
1N/A
1N/Astart("Test getprojent. Don't assume anything about the order it returns stuff in");
1N/A%h = %pf_byname;
1N/A$pass = 1;
1N/A@a2 = ();
1N/Awhile (@a1 = getprojent()) {
1N/A @a2 = @a1 if (! scalar(@a2));
1N/A if (exists($h{$a1[0]})) {
1N/A $pass = 0 if (! cmp_recs(\@a1, $h{$a1[0]}));
1N/A delete($h{$a1[0]});
1N/A } else {
1N/A $pass = 0;
1N/A }
1N/A}
1N/A$pass && ! %h ? pass() : fail();
1N/A
1N/Astart("Test getprojent when at end");
1N/A@a1 = getprojent();
1N/Acmp_recs(\@a1, []) ? pass() : fail();
1N/A
1N/A
1N/Astart("Test endprojent/getprojent");
1N/Aendprojent();
1N/A@a1 = getprojent();
1N/Acmp_recs(\@a1, \@a2) ? pass() : fail();
1N/A
1N/Astart("Test setprojent/getprojent");
1N/Asetprojent();
1N/A@a1 = getprojent();
1N/Acmp_recs(\@a1, \@a2) ? pass() : fail();
1N/Asetprojent();
1N/A
1N/Astart("Test getprojbyname");
1N/A$pass = 1;
1N/Awhile (($k, $v) = each(%pf_byname)) {
1N/A @a1 = getprojbyname($k);
1N/A $pass = 0 if (! cmp_recs(\@a1, $v));
1N/A}
1N/A$pass ? pass() : fail();
1N/A
1N/Astart("Test getprojbyid");
1N/A$pass = 1;
1N/Awhile (($k, $v) = each(%pf_byid)) {
1N/A @a1 = getprojbyid($k);
1N/A $pass = 0 if (! cmp_recs(\@a1, $v));
1N/A}
1N/A$pass ? pass() : fail();
1N/A
1N/Astart("Test getprojidbyname");
1N/A$pass = 1;
1N/Awhile (($k, $v) = each(%pf_byname)) {
1N/A $pass = 0 if (getprojidbyname($k) != $v->[1]);
1N/A}
1N/A$pass ? pass() : fail();
1N/A
1N/Astart("Test getdefaultproj");
1N/Amy $username = getpwuid($>);
1N/Amy $projid;
1N/A$s = `/usr/bin/id -p` ;
1N/A($projid) = $s =~ /projid=\d+\(([^)]+)\)/;
1N/Adefined($projid) && $projid eq getdefaultproj($username) ? pass() : fail();
1N/A
1N/Astart("test inproj");
1N/A$s = `/usr/bin/projects`;
1N/A($s) = split(/\s+/, $s);
1N/Ainproj($username, $s) ? pass() : fail();
1N/A
1N/Aexit(0);