t/040_type_constraints/003_util_std_type_constraints.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 277;
   7 use Test::Exception;
   8
   9 use Scalar::Util ();
  10
  11 BEGIN {
  12     use_ok('Moose::Util::TypeConstraints');
  13 }
  14
  15 my $SCALAR_REF = \(my $var);
  16
  17 no warnings 'once'; # << I *hates* that warning ...
  18 my $GLOB_REF   = \*GLOB_REF;
  19
  20 my $fh;
  21 open($fh, '<', $0) || die "Could not open $0 for the test";
  22
  23 my $fh_obj = bless {}, "IO::Handle"; # not really
  24
  25 Moose::Util::TypeConstraints->export_type_constraints_as_functions();
  26
  27 ok(defined Any(0),               'Any accepts anything');
  28 ok(defined Any(100),             'Any accepts anything');
  29 ok(defined Any(''),              'Any accepts anything');
  30 ok(defined Any('Foo'),           'Any accepts anything');
  31 ok(defined Any([]),              'Any accepts anything');
  32 ok(defined Any({}),              'Any accepts anything');
  33 ok(defined Any(sub {}),          'Any accepts anything');
  34 ok(defined Any($SCALAR_REF),     'Any accepts anything');
  35 ok(defined Any($GLOB_REF),       'Any accepts anything');
  36 ok(defined Any($fh),             'Any accepts anything');
  37 ok(defined Any(qr/../),          'Any accepts anything');
  38 ok(defined Any(bless {}, 'Foo'), 'Any accepts anything');
  39 ok(defined Any(undef),           'Any accepts anything');
  40
  41 ok(defined Item(0),               'Item is the base type, so accepts anything');
  42 ok(defined Item(100),             'Item is the base type, so accepts anything');
  43 ok(defined Item(''),              'Item is the base type, so accepts anything');
  44 ok(defined Item('Foo'),           'Item is the base type, so accepts anything');
  45 ok(defined Item([]),              'Item is the base type, so accepts anything');
  46 ok(defined Item({}),              'Item is the base type, so accepts anything');
  47 ok(defined Item(sub {}),          'Item is the base type, so accepts anything');
  48 ok(defined Item($SCALAR_REF),     'Item is the base type, so accepts anything');
  49 ok(defined Item($GLOB_REF),       'Item is the base type, so accepts anything');
  50 ok(defined Item($fh),             'Item is the base type, so accepts anything');
  51 ok(defined Item(qr/../),          'Item is the base type, so accepts anything');
  52 ok(defined Item(bless {}, 'Foo'), 'Item is the base type, so accepts anything');
  53 ok(defined Item(undef),           'Item is the base type, so accepts anything');
  54
  55 ok(defined Defined(0),               'Defined accepts anything which is defined');
  56 ok(defined Defined(100),             'Defined accepts anything which is defined');
  57 ok(defined Defined(''),              'Defined accepts anything which is defined');
  58 ok(defined Defined('Foo'),           'Defined accepts anything which is defined');
  59 ok(defined Defined([]),              'Defined accepts anything which is defined');
  60 ok(defined Defined({}),              'Defined accepts anything which is defined');
  61 ok(defined Defined(sub {}),          'Defined accepts anything which is defined');
  62 ok(defined Defined($SCALAR_REF),     'Defined accepts anything which is defined');
  63 ok(defined Defined($GLOB_REF),       'Defined accepts anything which is defined');
  64 ok(defined Defined($fh),             'Defined accepts anything which is defined');
  65 ok(defined Defined(qr/../),          'Defined accepts anything which is defined');
  66 ok(defined Defined(bless {}, 'Foo'), 'Defined accepts anything which is defined');
  67 ok(!defined Defined(undef),          'Defined accepts anything which is defined');
  68
  69 ok(!defined Undef(0),               'Undef accepts anything which is not defined');
  70 ok(!defined Undef(100),             'Undef accepts anything which is not defined');
  71 ok(!defined Undef(''),              'Undef accepts anything which is not defined');
  72 ok(!defined Undef('Foo'),           'Undef accepts anything which is not defined');
  73 ok(!defined Undef([]),              'Undef accepts anything which is not defined');
  74 ok(!defined Undef({}),              'Undef accepts anything which is not defined');
  75 ok(!defined Undef(sub {}),          'Undef accepts anything which is not defined');
  76 ok(!defined Undef($SCALAR_REF),     'Undef accepts anything which is not defined');
  77 ok(!defined Undef($GLOB_REF),       'Undef accepts anything which is not defined');
  78 ok(!defined Undef($fh),             'Undef accepts anything which is not defined');
  79 ok(!defined Undef(qr/../),          'Undef accepts anything which is not defined');
  80 ok(!defined Undef(bless {}, 'Foo'), 'Undef accepts anything which is not defined');
  81 ok(defined Undef(undef),            'Undef accepts anything which is not defined');
  82
  83 ok(defined Bool(0),                 'Bool rejects anything which is not a 1 or 0 or "" or undef');
  84 ok(defined Bool(1),                 'Bool rejects anything which is not a 1 or 0 or "" or undef');
  85 ok(!defined Bool(100),              'Bool rejects anything which is not a 1 or 0 or "" or undef');
  86 ok(defined Bool(''),                'Bool rejects anything which is not a 1 or 0 or "" or undef');
  87 ok(!defined Bool('Foo'),            'Bool rejects anything which is not a 1 or 0 or "" or undef');
  88 ok(!defined Bool([]),               'Bool rejects anything which is not a 1 or 0 or "" or undef');
  89 ok(!defined Bool({}),               'Bool rejects anything which is not a 1 or 0 or "" or undef');
  90 ok(!defined Bool(sub {}),           'Bool rejects anything which is not a 1 or 0 or "" or undef');
  91 ok(!defined Bool($SCALAR_REF),      'Bool rejects anything which is not a 1 or 0 or "" or undef');
  92 ok(!defined Bool($GLOB_REF),        'Bool rejects anything which is not a 1 or 0 or "" or undef');
  93 ok(!defined Bool($fh),              'Bool rejects anything which is not a 1 or 0 or "" or undef');
  94 ok(!defined Bool(qr/../),           'Bool rejects anything which is not a 1 or 0 or "" or undef');
  95 ok(!defined Bool(bless {}, 'Foo'),  'Bool rejects anything which is not a 1 or 0 or "" or undef');
  96 ok(defined Bool(undef),             'Bool rejects anything which is not a 1 or 0 or "" or undef');
  97
  98 ok(defined Value(0),                 'Value accepts anything which is not a Ref');
  99 ok(defined Value(100),               'Value accepts anything which is not a Ref');
 100 ok(defined Value(''),                'Value accepts anything which is not a Ref');
 101 ok(defined Value('Foo'),             'Value accepts anything which is not a Ref');
 102 ok(!defined Value([]),               'Value rejects anything which is not a Value');
 103 ok(!defined Value({}),               'Value rejects anything which is not a Value');
 104 ok(!defined Value(sub {}),           'Value rejects anything which is not a Value');
 105 ok(!defined Value($SCALAR_REF),      'Value rejects anything which is not a Value');
 106 ok(!defined Value($GLOB_REF),        'Value rejects anything which is not a Value');
 107 ok(!defined Value($fh),              'Value rejects anything which is not a Value');
 108 ok(!defined Value(qr/../),           'Value rejects anything which is not a Value');
 109 ok(!defined Value(bless {}, 'Foo'),  'Value rejects anything which is not a Value');
 110 ok(!defined Value(undef),            'Value rejects anything which is not a Value');
 111
 112 ok(!defined Ref(0),               'Ref accepts anything which is not a Value');
 113 ok(!defined Ref(100),             'Ref accepts anything which is not a Value');
 114 ok(!defined Ref(''),              'Ref accepts anything which is not a Value');
 115 ok(!defined Ref('Foo'),           'Ref accepts anything which is not a Value');
 116 ok(defined Ref([]),               'Ref rejects anything which is not a Ref');
 117 ok(defined Ref({}),               'Ref rejects anything which is not a Ref');
 118 ok(defined Ref(sub {}),           'Ref rejects anything which is not a Ref');
 119 ok(defined Ref($SCALAR_REF),      'Ref rejects anything which is not a Ref');
 120 ok(defined Ref($GLOB_REF),        'Ref rejects anything which is not a Ref');
 121 ok(defined Ref($fh),              'Ref rejects anything which is not a Ref');
 122 ok(defined Ref(qr/../),           'Ref rejects anything which is not a Ref');
 123 ok(defined Ref(bless {}, 'Foo'),  'Ref rejects anything which is not a Ref');
 124 ok(!defined Ref(undef),           'Ref rejects anything which is not a Ref');
 125
 126 ok(defined Int(0),                 'Int accepts anything which is an Int');
 127 ok(defined Int(100),               'Int accepts anything which is an Int');
 128 ok(!defined Int(0.5),              'Int accepts anything which is not a Int');
 129 ok(!defined Int(100.01),           'Int accepts anything which is not a Int');
 130 ok(!defined Int(''),               'Int rejects anything which is not a Int');
 131 ok(!defined Int('Foo'),            'Int rejects anything which is not a Int');
 132 ok(!defined Int([]),               'Int rejects anything which is not a Int');
 133 ok(!defined Int({}),               'Int rejects anything which is not a Int');
 134 ok(!defined Int(sub {}),           'Int rejects anything which is not a Int');
 135 ok(!defined Int($SCALAR_REF),      'Int rejects anything which is not a Int');
 136 ok(!defined Int($GLOB_REF),        'Int rejects anything which is not a Int');
 137 ok(!defined Int($fh),              'Int rejects anything which is not a Int');
 138 ok(!defined Int(qr/../),           'Int rejects anything which is not a Int');
 139 ok(!defined Int(bless {}, 'Foo'),  'Int rejects anything which is not a Int');
 140 ok(!defined Int(undef),            'Int rejects anything which is not a Int');
 141
 142 ok(defined Num(0),                 'Num accepts anything which is an Num');
 143 ok(defined Num(100),               'Num accepts anything which is an Num');
 144 ok(defined Num(0.5),               'Num accepts anything which is an Num');
 145 ok(defined Num(100.01),            'Num accepts anything which is an Num');
 146 ok(!defined Num(''),               'Num rejects anything which is not a Num');
 147 ok(!defined Num('Foo'),            'Num rejects anything which is not a Num');
 148 ok(!defined Num([]),               'Num rejects anything which is not a Num');
 149 ok(!defined Num({}),               'Num rejects anything which is not a Num');
 150 ok(!defined Num(sub {}),           'Num rejects anything which is not a Num');
 151 ok(!defined Num($SCALAR_REF),      'Num rejects anything which is not a Num');
 152 ok(!defined Num($GLOB_REF),        'Num rejects anything which is not a Num');
 153 ok(!defined Num($fh),              'Num rejects anything which is not a Num');
 154 ok(!defined Num(qr/../),           'Num rejects anything which is not a Num');
 155 ok(!defined Num(bless {}, 'Foo'),  'Num rejects anything which is not a Num');
 156 ok(!defined Num(undef),            'Num rejects anything which is not a Num');
 157
 158 ok(defined Str(0),                 'Str accepts anything which is a Str');
 159 ok(defined Str(100),               'Str accepts anything which is a Str');
 160 ok(defined Str(''),                'Str accepts anything which is a Str');
 161 ok(defined Str('Foo'),             'Str accepts anything which is a Str');
 162 ok(!defined Str([]),               'Str rejects anything which is not a Str');
 163 ok(!defined Str({}),               'Str rejects anything which is not a Str');
 164 ok(!defined Str(sub {}),           'Str rejects anything which is not a Str');
 165 ok(!defined Str($SCALAR_REF),      'Str rejects anything which is not a Str');
 166 ok(!defined Str($fh),              'Str rejects anything which is not a Str');
 167 ok(!defined Str($GLOB_REF),        'Str rejects anything which is not a Str');
 168 ok(!defined Str(qr/../),           'Str rejects anything which is not a Str');
 169 ok(!defined Str(bless {}, 'Foo'),  'Str rejects anything which is not a Str');
 170 ok(!defined Str(undef),            'Str rejects anything which is not a Str');
 171
 172 ok(!defined ScalarRef(0),                'ScalarRef rejects anything which is not a ScalarRef');
 173 ok(!defined ScalarRef(100),              'ScalarRef rejects anything which is not a ScalarRef');
 174 ok(!defined ScalarRef(''),               'ScalarRef rejects anything which is not a ScalarRef');
 175 ok(!defined ScalarRef('Foo'),            'ScalarRef rejects anything which is not a ScalarRef');
 176 ok(!defined ScalarRef([]),               'ScalarRef rejects anything which is not a ScalarRef');
 177 ok(!defined ScalarRef({}),               'ScalarRef rejects anything which is not a ScalarRef');
 178 ok(!defined ScalarRef(sub {}),           'ScalarRef rejects anything which is not a ScalarRef');
 179 ok(defined ScalarRef($SCALAR_REF),       'ScalarRef accepts anything which is a ScalarRef');
 180 ok(!defined ScalarRef($GLOB_REF),        'ScalarRef rejects anything which is not a ScalarRef');
 181 ok(!defined ScalarRef($fh),              'ScalarRef rejects anything which is not a ScalarRef');
 182 ok(!defined ScalarRef(qr/../),           'ScalarRef rejects anything which is not a ScalarRef');
 183 ok(!defined ScalarRef(bless {}, 'Foo'),  'ScalarRef rejects anything which is not a ScalarRef');
 184 ok(!defined ScalarRef(undef),            'ScalarRef rejects anything which is not a ScalarRef');
 185
 186 ok(!defined ArrayRef(0),                'ArrayRef rejects anything which is not a ArrayRef');
 187 ok(!defined ArrayRef(100),              'ArrayRef rejects anything which is not a ArrayRef');
 188 ok(!defined ArrayRef(''),               'ArrayRef rejects anything which is not a ArrayRef');
 189 ok(!defined ArrayRef('Foo'),            'ArrayRef rejects anything which is not a ArrayRef');
 190 ok(defined ArrayRef([]),                'ArrayRef accepts anything which is a ArrayRef');
 191 ok(!defined ArrayRef({}),               'ArrayRef rejects anything which is not a ArrayRef');
 192 ok(!defined ArrayRef(sub {}),           'ArrayRef rejects anything which is not a ArrayRef');
 193 ok(!defined ArrayRef($SCALAR_REF),      'ArrayRef rejects anything which is not a ArrayRef');
 194 ok(!defined ArrayRef($GLOB_REF),        'ArrayRef rejects anything which is not a ArrayRef');
 195 ok(!defined ArrayRef($fh),              'ArrayRef rejects anything which is not a ArrayRef');
 196 ok(!defined ArrayRef(qr/../),           'ArrayRef rejects anything which is not a ArrayRef');
 197 ok(!defined ArrayRef(bless {}, 'Foo'),  'ArrayRef rejects anything which is not a ArrayRef');
 198 ok(!defined ArrayRef(undef),            'ArrayRef rejects anything which is not a ArrayRef');
 199
 200 ok(!defined HashRef(0),                'HashRef rejects anything which is not a HashRef');
 201 ok(!defined HashRef(100),              'HashRef rejects anything which is not a HashRef');
 202 ok(!defined HashRef(''),               'HashRef rejects anything which is not a HashRef');
 203 ok(!defined HashRef('Foo'),            'HashRef rejects anything which is not a HashRef');
 204 ok(!defined HashRef([]),               'HashRef rejects anything which is not a HashRef');
 205 ok(defined HashRef({}),                'HashRef accepts anything which is a HashRef');
 206 ok(!defined HashRef(sub {}),           'HashRef rejects anything which is not a HashRef');
 207 ok(!defined HashRef($SCALAR_REF),      'HashRef rejects anything which is not a HashRef');
 208 ok(!defined HashRef($GLOB_REF),        'HashRef rejects anything which is not a HashRef');
 209 ok(!defined HashRef($fh),              'HashRef rejects anything which is not a HashRef');
 210 ok(!defined HashRef(qr/../),           'HashRef rejects anything which is not a HashRef');
 211 ok(!defined HashRef(bless {}, 'Foo'),  'HashRef rejects anything which is not a HashRef');
 212 ok(!defined HashRef(undef),            'HashRef rejects anything which is not a HashRef');
 213
 214 ok(!defined CodeRef(0),                'CodeRef rejects anything which is not a CodeRef');
 215 ok(!defined CodeRef(100),              'CodeRef rejects anything which is not a CodeRef');
 216 ok(!defined CodeRef(''),               'CodeRef rejects anything which is not a CodeRef');
 217 ok(!defined CodeRef('Foo'),            'CodeRef rejects anything which is not a CodeRef');
 218 ok(!defined CodeRef([]),               'CodeRef rejects anything which is not a CodeRef');
 219 ok(!defined CodeRef({}),               'CodeRef rejects anything which is not a CodeRef');
 220 ok(defined CodeRef(sub {}),            'CodeRef accepts anything which is a CodeRef');
 221 ok(!defined CodeRef($SCALAR_REF),      'CodeRef rejects anything which is not a CodeRef');
 222 ok(!defined CodeRef($GLOB_REF),        'CodeRef rejects anything which is not a CodeRef');
 223 ok(!defined CodeRef($fh),              'CodeRef rejects anything which is not a CodeRef');
 224 ok(!defined CodeRef(qr/../),           'CodeRef rejects anything which is not a CodeRef');
 225 ok(!defined CodeRef(bless {}, 'Foo'),  'CodeRef rejects anything which is not a CodeRef');
 226 ok(!defined CodeRef(undef),            'CodeRef rejects anything which is not a CodeRef');
 227
 228 ok(!defined RegexpRef(0),                'RegexpRef rejects anything which is not a RegexpRef');
 229 ok(!defined RegexpRef(100),              'RegexpRef rejects anything which is not a RegexpRef');
 230 ok(!defined RegexpRef(''),               'RegexpRef rejects anything which is not a RegexpRef');
 231 ok(!defined RegexpRef('Foo'),            'RegexpRef rejects anything which is not a RegexpRef');
 232 ok(!defined RegexpRef([]),               'RegexpRef rejects anything which is not a RegexpRef');
 233 ok(!defined RegexpRef({}),               'RegexpRef rejects anything which is not a RegexpRef');
 234 ok(!defined RegexpRef(sub {}),           'RegexpRef rejects anything which is not a RegexpRef');
 235 ok(!defined RegexpRef($SCALAR_REF),      'RegexpRef rejects anything which is not a RegexpRef');
 236 ok(!defined RegexpRef($GLOB_REF),        'RegexpRef rejects anything which is not a RegexpRef');
 237 ok(!defined RegexpRef($fh),              'RegexpRef rejects anything which is not a RegexpRef');
 238 ok(defined RegexpRef(qr/../),            'RegexpRef accepts anything which is a RegexpRef');
 239 ok(!defined RegexpRef(bless {}, 'Foo'),  'RegexpRef rejects anything which is not a RegexpRef');
 240 ok(!defined RegexpRef(undef),            'RegexpRef rejects anything which is not a RegexpRef');
 241
 242 ok(!defined GlobRef(0),                'GlobRef rejects anything which is not a GlobRef');
 243 ok(!defined GlobRef(100),              'GlobRef rejects anything which is not a GlobRef');
 244 ok(!defined GlobRef(''),               'GlobRef rejects anything which is not a GlobRef');
 245 ok(!defined GlobRef('Foo'),            'GlobRef rejects anything which is not a GlobRef');
 246 ok(!defined GlobRef([]),               'GlobRef rejects anything which is not a GlobRef');
 247 ok(!defined GlobRef({}),               'GlobRef rejects anything which is not a GlobRef');
 248 ok(!defined GlobRef(sub {}),           'GlobRef rejects anything which is not a GlobRef');
 249 ok(!defined GlobRef($SCALAR_REF),      'GlobRef rejects anything which is not a GlobRef');
 250 ok(defined GlobRef($GLOB_REF),         'GlobRef accepts anything which is a GlobRef');
 251 ok(defined GlobRef($fh),               'GlobRef accepts anything which is a GlobRef');
 252 ok(!defined GlobRef($fh_obj),          'GlobRef rejects anything which is not a GlobRef');
 253 ok(!defined GlobRef(qr/../),           'GlobRef rejects anything which is not a GlobRef');
 254 ok(!defined GlobRef(bless {}, 'Foo'),  'GlobRef rejects anything which is not a GlobRef');
 255 ok(!defined GlobRef(undef),            'GlobRef rejects anything which is not a GlobRef');
 256
 257 ok(!defined FileHandle(0),                'FileHandle rejects anything which is not a FileHandle');
 258 ok(!defined FileHandle(100),              'FileHandle rejects anything which is not a FileHandle');
 259 ok(!defined FileHandle(''),               'FileHandle rejects anything which is not a FileHandle');
 260 ok(!defined FileHandle('Foo'),            'FileHandle rejects anything which is not a FileHandle');
 261 ok(!defined FileHandle([]),               'FileHandle rejects anything which is not a FileHandle');
 262 ok(!defined FileHandle({}),               'FileHandle rejects anything which is not a FileHandle');
 263 ok(!defined FileHandle(sub {}),           'FileHandle rejects anything which is not a FileHandle');
 264 ok(!defined FileHandle($SCALAR_REF),      'FileHandle rejects anything which is not a FileHandle');
 265 ok(!defined FileHandle($GLOB_REF),        'FileHandle rejects anything which is not a FileHandle');
 266 ok(defined FileHandle($fh),               'FileHandle accepts anything which is a FileHandle');
 267 ok(defined FileHandle($fh_obj),           'FileHandle accepts anything which is a FileHandle');
 268 ok(!defined FileHandle(qr/../),           'FileHandle rejects anything which is not a FileHandle');
 269 ok(!defined FileHandle(bless {}, 'Foo'),  'FileHandle rejects anything which is not a FileHandle');
 270 ok(!defined FileHandle(undef),            'FileHandle rejects anything which is not a FileHandle');
 271
 272 ok(!defined Object(0),                'Object rejects anything which is not blessed');
 273 ok(!defined Object(100),              'Object rejects anything which is not blessed');
 274 ok(!defined Object(''),               'Object rejects anything which is not blessed');
 275 ok(!defined Object('Foo'),            'Object rejects anything which is not blessed');
 276 ok(!defined Object([]),               'Object rejects anything which is not blessed');
 277 ok(!defined Object({}),               'Object rejects anything which is not blessed');
 278 ok(!defined Object(sub {}),           'Object rejects anything which is not blessed');
 279 ok(!defined Object($SCALAR_REF),      'Object rejects anything which is not blessed');
 280 ok(!defined Object($GLOB_REF),        'Object rejects anything which is not blessed');
 281 ok(!defined Object($fh),              'Object rejects anything which is not blessed');
 282 ok(!defined Object(qr/../),           'Object rejects anything which is not blessed');
 283 ok(defined Object(bless {}, 'Foo'),   'Object accepts anything which is blessed');
 284 ok(!defined Object(undef),             'Object accepts anything which is blessed');
 285
 286 ok(!defined ClassName(0),               'ClassName rejects anything which is not a ClassName');
 287 ok(!defined ClassName(100),             'ClassName rejects anything which is not a ClassName');
 288 ok(!defined ClassName(''),              'ClassName rejects anything which is not a ClassName');
 289 ok(!defined ClassName('Baz'),           'ClassName rejects anything which is not a ClassName');
 290
 291 {
 292   package Quux::Wibble; # this makes Quux symbol table exist
 293
 294   sub foo {}
 295 }
 296
 297 ok(!defined ClassName('Quux'),           'ClassName rejects anything which is not a ClassName');
 298 ok(!defined ClassName([]),              'ClassName rejects anything which is not a ClassName');
 299 ok(!defined ClassName({}),              'ClassName rejects anything which is not a ClassName');
 300 ok(!defined ClassName(sub {}),          'ClassName rejects anything which is not a ClassName');
 301 ok(!defined ClassName($SCALAR_REF),     'ClassName rejects anything which is not a ClassName');
 302 ok(!defined ClassName($fh),             'ClassName rejects anything which is not a ClassName');
 303 ok(!defined ClassName($GLOB_REF),       'ClassName rejects anything which is not a ClassName');
 304 ok(!defined ClassName(qr/../),          'ClassName rejects anything which is not a ClassName');
 305 ok(!defined ClassName(bless {}, 'Foo'), 'ClassName rejects anything which is not a ClassName');
 306 ok(!defined ClassName(undef),           'ClassName rejects anything which is not a ClassName');
 307 ok(defined ClassName('UNIVERSAL'),      'ClassName accepts anything which is a ClassName');
 308 ok(defined ClassName('Quux::Wibble'),      'ClassName accepts anything which is a ClassName');
 309 ok(defined ClassName('Moose::Meta::TypeConstraint'), 'ClassName accepts anything which is a ClassName');
 310
 311 ok(!defined RoleName(0),               'RoleName rejects anything which is not a RoleName');
 312 ok(!defined RoleName(100),             'RoleName rejects anything which is not a RoleName');
 313 ok(!defined RoleName(''),              'RoleName rejects anything which is not a RoleName');
 314 ok(!defined RoleName('Baz'),           'RoleName rejects anything which is not a RoleName');
 315
 316 {
 317   package Quux::Wibble::Role; # this makes Quux symbol table exist
 318   use Moose::Role;
 319   sub foo {}
 320 }
 321
 322 ok(!defined RoleName('Quux'),           'RoleName rejects anything which is not a RoleName');
 323 ok(!defined RoleName([]),              'Rolename rejects anything which is not a RoleName');
 324 ok(!defined RoleName({}),              'Rolename rejects anything which is not a RoleName');
 325 ok(!defined RoleName(sub {}),          'Rolename rejects anything which is not a RoleName');
 326 ok(!defined RoleName($SCALAR_REF),     'Rolename rejects anything which is not a RoleName');
 327 ok(!defined RoleName($fh),             'Rolename rejects anything which is not a RoleName');
 328 ok(!defined RoleName($GLOB_REF),       'Rolename rejects anything which is not a RoleName');
 329 ok(!defined RoleName(qr/../),          'Rolename rejects anything which is not a RoleName');
 330 ok(!defined RoleName(bless {}, 'Foo'), 'Rolename rejects anything which is not a RoleName');
 331 ok(!defined RoleName(undef),           'Rolename rejects anything which is not a RoleName');
 332 ok(!defined RoleName('UNIVERSAL'),     'Rolename rejects anything which is not a RoleName');
 333 ok(!defined RoleName('Quux::Wibble'),  'Rolename rejects anything which is not a RoleName');
 334 ok(!defined RoleName('Moose::Meta::TypeConstraint'),  'RoleName accepts anything which is a RoleName');
 335 ok(defined RoleName('Quux::Wibble::Role'),      'RoleName accepts anything which is a RoleName');
 336
 337 close($fh) || die "Could not close the filehandle $0 for test";