CPAN::Groonga

id flickr.auth.checkToken complete sucessfully");

			isnt($ref->{auth}->{user}->{nsid}, undef, "Did flickr.auth.checkToken return nsid");
			isnt($ref->{auth}->{user}->{username}, undef, "Did flickr.

tat}, 'ok', "Did flickr.test.login complete sucessfully");

			isnt($ref->{user}->{id}, undef, "Did flickr.test.login return id");
			isnt($ref->{user}->{username}, undef, "Did flickr.test.login retur

"Did flickr.prefs.getPrivacy complete sucessfully");

			isnt($ref->{person}->{nsid}, undef, "Did flickr.prefs.getPrivacy return nsid");
			isnt($ref->{person}->{privacy}, undef, "Did flickr.prefs.get

lly'
        );

        isnt(
            $ref->{oauth}->{user}->{nsid},
            undef,
            'Did flickr.auth.oauth.checkToken return nsid'
        );

        isnt(
            $ref->{oau

ete sucessfully'
        );

        isnt(
            $ref->{user}->{id},
            undef,
            'Did flickr.test.login return id'
        );

        isnt(
            $ref->{user}->{usernam

cessfully'
        );

        isnt(
            $ref->{person}->{nsid},
            undef,
            'Did flickr.prefs.getPrivacy return nsid'
        );

        isnt(
            $ref->{person}->

y} = $val; }

        }

        isnt(
            $peoplevalues{'search_email'},
            '',
            'Is there an email to search for'
        );

        isnt(
            $peoplevalues{'sea

rch_user'},
            '',
            'Is there a userid to search for'
         );

        isnt(
            $api->findByEmail($peoplevalues{'search_email'}),
            '',
            'did we g

      undef,
            'did we fail to get username on bogus email address'
        );

        isnt(
            $api->findByUsername($peoplevalues{'search_username'}),
            '',
            

ad record API success'
            );

            my $photoid = $apihash->{photoid};
            isnt(
                $photoid,
                undef,
                'Did we get a photoid'