# Copyright (c) 2008 bivio Software, Inc.  All Rights Reserved.
# $Id: ssl.btest,v 1.1 2009/01/09 00:26:56 nagler Exp $
test_setup('PetShop');
home_page();
(my $uri = get_uri()) =~ s/^http/https/;
my($ssl) = unsafe_op(visit_uri => $uri);
home_page();
verify_uri(qr{^http:});
visit_uri('/fourem/wiki/PrivatePage');
verify_uri(qr{^https:})
    if $ssl;
submit_form({
    email => 'root',
    password => 'password',
});