"Fossies" - the Fresh Open Source Software Archive

Member "perl-ldap-0.66/t/44schema.t" (8 Apr 2015, 357 Bytes) of package /linux/privat/perl-ldap-0.66.tar.gz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 #!perl
    2 
    3 use Test::More;
    4 
    5 BEGIN { require "t/common.pl" }
    6 
    7 
    8 start_server(version => 3)
    9 ? plan tests => 4
   10 : plan skip_all => 'no server';
   11 
   12 
   13 $ldap = client();
   14 ok($ldap, "client");
   15 
   16 $schema = $ldap->schema;
   17 ok($schema, "schema");
   18 
   19 $ob = $schema->attribute('objectClass');
   20 ok($ob, 'objectClass');
   21 
   22 ok($ob->{syntax} eq '1.3.6.1.4.1.1466.115.121.1.38', 'syntax');