view release on metacpan or  search on metacpan

t/101login.t  view on Meta::CPAN

    diag(sprintf 'Server version: %s', $server->{version} || '???' );
    my $tester = BZ::Client::Test->new( %$server, logDirectory => '/tmp/bz' );

  SKIP: {
        skip( 'No Bugzilla server configured, skipping', 10 )
          if $tester->isSkippingIntegrationTests();

        my $client = $tester->client();

        # check client isnt logged in before log in
      diag( sprintf 'apikey: %s', $server->{testApiKey} || 'NaN' );

      SKIP: {
            skip( 'Always logged in when using apikey', 1 )
              if $server->{testApiKey};
            ok( !$client->is_logged_in(),
                'The client is NOT already logged in' )
              or
              BAIL_OUT( 'Already logged in? cannot proceed' . Dumper($client) );
        }

t/101login.t  view on Meta::CPAN

                    $msg = "Error: $err";
                }
                ok( 0, 'No errors from ->logout when already logged in' ) or diag($msg);
            }
            else {
                ok( 1, 'No errors from ->logout when already logged in' );
            }

            ok( $ret, '->logout returned true when already logged in' )
                or diag 'Expected true, got: ' . ( defined $ret ? $ret : 'undef' );
            diag( sprintf 'apikey: %s', $server->{testApiKey} || 'NaN' );

          SKIP: {
                skip( 'Always logged in when using apikey', 1 )
                  if $server->{testApiKey};
                ok( !$client->is_logged_in(),
                    'The client is no longer logged in.' );
            }
        }

        # logout when not logged in

t/101login.t  view on Meta::CPAN

                    $msg = "Error: $err";
                }
                ok( 0, 'No errors from ->logout when not logged in' ) or diag($msg);
            }
            else {
                ok( 1, 'No errors from ->logout when not logged in' );
            }

            ok( $ret, '->logout when not logged in, returned true' )
                or diag 'Expected true, got: ' . ( defined $ret ? $ret : 'undef' );
            diag( sprintf 'apikey: %s', $server->{testApiKey} || 'NaN' );
          SKIP: {
                skip( 'Always logged in when using apikey', 1 )
                  if $server->{testApiKey};
                ok( !$client->is_logged_in(),
                    'The client is STILL not logged in.' );
            }

        }

    }