view release on metacpan or  search on metacpan

t/rt_62370_diconnected_handles_operation.t  view on Meta::CPAN

        return $c;
      }

      package main;

      local $@;
      eval { $dbh->$call_func('newcount', 0, 'count_aggr', 'create_aggregate') };
      ok $@, "create_aggregate dies with error: $@";
    }

    {
      local $@;
      eval { $dbh->$call_func('by_num', sub ($$) {0}, 'create_collation') };
      ok $@, "create_collation dies with error: $@";
    }

    {
      local $@;
      eval { $dbh->$call_func('by_num', sub ($$) {0}, 'create_collation') };
      ok $@, "create_collation dies with error: $@";
    }

    {
      local $@;
      eval { $dbh->$call_func(sub {1}, 'collation_needed') };
      ok $@, "collation_needed dies with error: $@";
    }

    {
      local $@;
      eval { $dbh->$call_func(50, sub {}, 'progress_handler') };
      ok $@, "progress_handler dies with error: $@";
    }

    {
      local $@;
      eval { $dbh->$call_func(sub {}, 'commit_hook') };
      ok $@, "commit hook dies with error: $@";
    }

    {
      local $@;
      eval { $dbh->$call_func(sub {}, 'rollback_hook') };
      ok $@, "rollback hook dies with error: $@";
    }

    {
      local $@;
      eval { $dbh->$call_func(sub {}, 'update_hook') };
      ok $@, "update hook dies with error: $@";
    }

    {
      local $@;
      eval { $dbh->$call_func(undef, 'set_authorizer') };
      ok $@, "set authorizer dies with error: $@";
    }

    if ($DBD::SQLeet::sqlite_version_number >= 3006011) {
      local $@;
      eval { $dbh->$call_func('./backup_file', 'backup_from_file') };
      ok $@, "backup from file dies with error: $@";
    }

    if ($DBD::SQLeet::sqlite_version_number >= 3006011) {
      local $@;
      eval { $dbh->$call_func('./backup_file', 'backup_to_file') };
      ok $@, "backup to file dies with error: $@";
    }
  }
}