4  * This is not actually a test for the pam-util layer, but rather is a test
6  * test the pam-util layer and PAM modules.
8  * The canonical version of this file is maintained in the rra-c-util package,
9  * which can be found at <https://www.eyrie.org/~eagle/software/rra-c-util/>.
33  * SPDX-License-Identifier: MIT
69     ok(env != NULL, "getenvlist when NULL returns non-NULL");  in main()
78     is_int(PAM_SUCCESS, pam_putenv(pamh, "TEST=foo"), "putenv TEST");  in main()
79     is_string("foo", pam_getenv(pamh, "TEST"), "getenv TEST");  in main()
80     is_int(PAM_SUCCESS, pam_putenv(pamh, "FOO=bar"), "putenv FOO");  in main()
81     is_int(PAM_SUCCESS, pam_putenv(pamh, "BAR=baz"), "putenv BAR");  in main()
82     is_string("foo", pam_getenv(pamh, "TEST"), "getenv TEST");  in main()
83     is_string("bar", pam_getenv(pamh, "FOO"), "getenv FOO");  in main()
84     is_string("baz", pam_getenv(pamh, "BAR"), "getenv BAR");  in main()
89     is_int(PAM_SUCCESS, pam_putenv(pamh, "FOO=foo"), "putenv replace");  in main()
90     is_int(PAM_SUCCESS, pam_putenv(pamh, "FOON=bar=n"), "putenv prefix");  in main()
91     is_string("foo", pam_getenv(pamh, "FOO"), "getenv FOO");  in main()
92     is_string("bar=n", pam_getenv(pamh, "FOON"), "getenv FOON");  in main()
94     is_int(PAM_SUCCESS, pam_putenv(pamh, "FOO"), "putenv delete FOO");  in main()
95     ok(pam_getenv(pamh, "FOO") == NULL, "getenv FOO is NULL");  in main()
96     is_string("bar=n", pam_getenv(pamh, "FOON"), "getenv FOON");  in main()
97     is_string("baz", pam_getenv(pamh, "BAR"), "getenv BAR");  in main()
104     is_string("TEST=foo", env[0], "getenvlist TEST");  in main()
105     is_string("BAR=baz", env[1], "getenvlist BAR");  in main()
106     is_string("FOON=bar=n", env[2], "getenvlist FOON");  in main()
111     is_int(PAM_SUCCESS, pam_putenv(pamh, "FOO=foo"), "putenv FOO");  in main()
112     is_string("TEST=foo", pamh->environ[0], "pamh environ TEST");  in main()
113     is_string("BAR=baz", pamh->environ[1], "pamh environ BAR");  in main()
114     is_string("FOON=bar=n", pamh->environ[2], "pamh environ FOON");  in main()
115     is_string("FOO=foo", pamh->environ[3], "pamh environ FOO");  in main()
116     ok(pamh->environ[4] == NULL, "pamh environ length");  in main()