1#!/usr/bin/perl -w
2
3use strict;
4use warnings;
5BEGIN { require 't/security.pl' };
6plan_security tests => 6;
7
8$ENV{HOME}="/tmp/test$$";
9ok(mkdir($ENV{HOME}), 'setup home');
10is_output('security', 'create-keychain', [qw(-p test test-unlock)],
11    [],
12    'create kc');
13TODO: {
14	local $TODO = "<rdar://problem/3835412> Unlocking an unlocked keychain with the wrong password succeeds";
15	is_output('security', 'unlock-keychain', ['-p', 'wrong', 'test-unlock'],
16	    ['security: SecKeychainUnlock test-unlock: The user name or passphrase you entered is not correct.'],
17	    'unlock unlocked kc w/ wrong pw');
18};
19is_output('security', 'lock-keychain', ['test-unlock'],
20    [],
21    'lock');
22is_output('security', 'unlock-keychain', ['-p', 'wrong', 'test-unlock'],
23    ['security: SecKeychainUnlock test-unlock: The user name or passphrase you entered is not correct.'],
24    'unlock locked kc w/ wrong pw');
25ok(system("rm -rf '$ENV{HOME}'") eq 0, 'cleanup home');
26
271;
28