All providers can be tested for realm priority during tests.

Author: SysPete

lib/Dancer2/Plugin/Auth/Extensible/Test.pm

@@ -198,13 +198,10 @@ sub _test_base {
     }
 
   SKIP: {
-        skip "priorities not defined for this provider test", 1
-          if !defined $ENV{DANCER_ENVIRONMENT}
-          || $ENV{DANCER_ENVIRONMENT} ne 'provider-config';
+        skip "Priorities not defined for this provider test", 1
+          if !get('/can_test_realm_priority')->content;
 
         # test realm priority
-        # TODO: find out if we can run these tests by poking the
-        # provider rather than having it hard-coded.
         my $logs = $trap->read;
         cmp_deeply(
             $logs,
@@ -744,6 +741,11 @@ sub _test_base {
         is $res->code, 200, "/get_user_details/dave response is 200"
           or diag explain $trap->read;
 
+        my $user = YAML::Load $res->content;
+        cmp_deeply $user,
+          superhashof( { name => 'David Precious' } ),
+          "We have Dave's name in the response"
+              or diag explain $user;
     }
     {
         my $res = get('/get_user_details/burt');

lib/Dancer2/Plugin/Auth/Extensible/Test/App.pm

@@ -141,17 +141,37 @@ get '/update_user_role/:realm' => sub {
 get '/get_user_details/:user' => sub {
     content_type 'text/x-yaml';
     my $user = get_user_details param('user');
-    my $name = blessed($user) ? $user->name : $user->{name};
-    YAML::Dump { name => $name };
+    if ( blessed($user) ) {
+        if ( $user->isa('DBIx::Class::Row')) {
+            $user = +{ $user->get_columns };
+        }
+        else {
+            # assume some kind of hash-backed object
+            $user = \%$user;
+        }
+    }
+    YAML::Dump $user;
 };
 
 get '/get_user_mark/:realm' => sub {
     my $realm = param 'realm';
     content_type 'text/x-yaml';
     my $user = get_user_details 'mark', $realm;
-    my $name = blessed($user) ? $user->name : $user->{name};
-    YAML::Dump { name => $name };
+    if ( blessed($user) ) {
+        if ( $user->isa('DBIx::Class::Row')) {
+            $user = +{ $user->get_columns };
+        }
+        else {
+            # assume some kind of hash-backed object
+            $user = \%$user;
+        }
+    }
+    YAML::Dump $user;
+};
+
+get '/can_test_realm_priority' => sub {
+    app->with_plugin('Auth::Extensible')->config->{realms}->{config2}
+      ->{priority};
 };
 
-
 1;