1 contributor
use strict;
use warnings;
use FindBin;
$ENV{DBIX_CUSTOM_TEST_RUN} = 1
if -f "$FindBin::Bin/run/common-sqlserver.run";
$ENV{DBIX_CUSTOM_SKIP_MESSAGE} = 'sqlserver private test';
use DBIx::Custom;
{
package DBIx::Custom;
no warnings 'redefine';
my $table1 = 'table1';
my $table2 = 'table2';
my $table2_alias = 'table2_alias';
my $table3 = 'table3';
my $key1 = 'key1';
my $key2 = 'key2';
my $key3 = 'key3';
my $key4 = 'key4';
my $key5 = 'key5';
my $key6 = 'key6';
my $key7 = 'key7';
my $key8 = 'key8';
my $key9 = 'key9';
my $key10 = 'key10';
has table1 => $table1;
has table2 => $table2;
has table2_alias => $table2_alias;
has table3 => $table3;
has key1 => $key1;
has key2 => $key2;
has key3 => $key3;
has key4 => $key4;
has key5 => $key5;
has key6 => $key6;
has key7 => $key7;
has key8 => $key8;
has key9 => $key9;
has key10 => $key10;
my $date_typename = 'date';
my $datetime_typename = 'datetime';
sub date_typename { lc $date_typename }
sub datetime_typename { lc $datetime_typename }
my $date_datatype = -9;
my $datetime_datatype = 93;
sub date_datatype { lc $date_datatype }
sub datetime_datatype { lc $datetime_datatype }
has exclude_table => sub {
return qr/^(
CHECK_CONSTRAINTS
|COLUMN_DOMAIN_USAGE
|COLUMN_PRIVILEGES
|COLUMNS
|CONSTRAINT_COLUMN_USAGE
|CONSTRAINT_TABLE_USAGE
|DOMAIN_CONSTRAINTS
|DOMAINS
|KEY_COLUMN_USAGE
|PARAMETERS
|REFERENTIAL_CONSTRAINTS
|ROUTINE_COLUMNS
|ROUTINES
|SCHEMATA
|TABLE_CONSTRAINTS
|TABLE_PRIVILEGES
|TABLES
|VIEW_COLUMN_USAGE
|VIEW_TABLE_USAGE
|VIEWS
|all_columns
|all_objects
|all_parameters
|all_sql_modules
|all_views
|allocation_units
|assemblies
|assembly_files
|assembly_modules
|assembly_references
|assembly_types
|asymmetric_keys
|backup_devices
|certificates
|change_tracking_databases
|change_tracking_tables
|check_constraints
|column_type_usages
|column_xml_schema_collection_usages
|columns
|computed_columns
|configurations
|conversation_endpoints
|conversation_groups
|conversation_priorities
|credentials
|crypt_properties
|cryptographic_providers
|data_spaces
|database_audit_specification_details
|database_audit_specifications
|database_files
|database_mirroring
|database_mirroring_endpoints
|database_permissions
|database_principal_aliases
|database_principals
|database_recovery_status
|database_role_members
|databases
|default_constraints
|destination_data_spaces
|dm_audit_actions
|dm_audit_class_type_map
|dm_broker_activated_tasks
|dm_broker_connections
|dm_broker_forwarded_messages
|dm_broker_queue_monitors
|dm_cdc_errors
|dm_cdc_log_scan_sessions
|dm_clr_appdomains
|dm_clr_loaded_assemblies
|dm_clr_properties
|dm_clr_tasks
|dm_cryptographic_provider_properties
|dm_database_encryption_keys
|dm_db_file_space_usage
|dm_db_index_usage_stats
|dm_db_mirroring_auto_page_repair
|dm_db_mirroring_connections
|dm_db_mirroring_past_actions
|dm_db_missing_index_details
|dm_db_missing_index_group_stats
|dm_db_missing_index_groups
|dm_db_partition_stats
|dm_db_persisted_sku_features
|dm_db_script_level
|dm_db_session_space_usage
|dm_db_task_space_usage
|dm_exec_background_job_queue
|dm_exec_background_job_queue_stats
|dm_exec_cached_plans
|dm_exec_connections
|dm_exec_procedure_stats
|dm_exec_query_memory_grants
|dm_exec_query_optimizer_info
|dm_exec_query_resource_semaphores
|dm_exec_query_stats
|dm_exec_query_transformation_stats
|dm_exec_requests
|dm_exec_sessions
|dm_exec_trigger_stats
|dm_filestream_file_io_handles
|dm_filestream_file_io_requests
|dm_fts_active_catalogs
|dm_fts_fdhosts
|dm_fts_index_population
|dm_fts_memory_buffers
|dm_fts_memory_pools
|dm_fts_outstanding_batches
|dm_fts_population_ranges
|dm_io_backup_tapes
|dm_io_cluster_shared_drives
|dm_io_pending_io_requests
|dm_os_buffer_descriptors
|dm_os_child_instances
|dm_os_cluster_nodes
|dm_os_dispatcher_pools
|dm_os_dispatchers
|dm_os_hosts
|dm_os_latch_stats
|dm_os_loaded_modules
|dm_os_memory_allocations
|dm_os_memory_brokers
|dm_os_memory_cache_clock_hands
|dm_os_memory_cache_counters
|dm_os_memory_cache_entries
|dm_os_memory_cache_hash_tables
|dm_os_memory_clerks
|dm_os_memory_node_access_stats
|dm_os_memory_nodes
|dm_os_memory_objects
|dm_os_memory_pools
|dm_os_nodes
|dm_os_performance_counters
|dm_os_process_memory
|dm_os_ring_buffers
|dm_os_schedulers
|dm_os_spinlock_stats
|dm_os_stacks
|dm_os_sublatches
|dm_os_sys_info
|dm_os_sys_memory
|dm_os_tasks
|dm_os_threads
|dm_os_virtual_address_dump
|dm_os_wait_stats
|dm_os_waiting_tasks
|dm_os_worker_local_storage
|dm_os_workers
|dm_qn_subscriptions
|dm_repl_articles
|dm_repl_schemas
|dm_repl_tranhash
|dm_repl_traninfo
|dm_resource_governor_configuration
|dm_resource_governor_resource_pools
|dm_resource_governor_workload_groups
|dm_server_audit_status
|dm_tran_active_snapshot_database_transactions
|dm_tran_active_transactions
|dm_tran_commit_table
|dm_tran_current_snapshot
|dm_tran_current_transaction
|dm_tran_database_transactions
|dm_tran_locks
|dm_tran_session_transactions
|dm_tran_top_version_generators
|dm_tran_transactions_snapshot
|dm_tran_version_store
|dm_xe_map_values
|dm_xe_object_columns
|dm_xe_objects
|dm_xe_packages
|dm_xe_session_event_actions
|dm_xe_session_events
|dm_xe_session_object_columns
|dm_xe_session_targets
|dm_xe_sessions
|endpoint_webmethods
|endpoints
|event_notification_event_types
|event_notifications
|events
|extended_procedures
|extended_properties
|filegroups
|foreign_key_columns
|foreign_keys
|fulltext_catalogs
|fulltext_document_types
|fulltext_index_catalog_usages
|fulltext_index_columns
|fulltext_index_fragments
|fulltext_indexes
|fulltext_languages
|fulltext_stoplists
|fulltext_stopwords
|fulltext_system_stopwords
|function_order_columns
|http_endpoints
|identity_columns
|index_columns
|indexes
|internal_tables
|key_constraints
|key_encryptions
|linked_logins
|login_token
|master_files
|master_key_passwords
|message_type_xml_schema_collection_usages
|messages
|module_assembly_usages
|numbered_procedure_parameters
|numbered_procedures
|objects
|openkeys
|parameter_type_usages
|parameter_xml_schema_collection_usages
|parameters
|partition_functions
|partition_parameters
|partition_range_values
|partition_schemes
|partitions
|plan_guides
|procedures
|remote_logins
|remote_service_bindings
|resource_governor_configuration
|resource_governor_resource_pools
|resource_governor_workload_groups
|routes
|schemas
|securable_classes
|server_assembly_modules
|server_audit_specification_details
|server_audit_specifications
|server_audits
|server_event_notifications
|server_event_session_actions
|server_event_session_events
|server_event_session_fields
|server_event_session_targets
|server_event_sessions
|server_events
|server_file_audits
|server_permissions
|server_principal_credentials
|server_principals
|server_role_members
|server_sql_modules
|server_trigger_events
|server_triggers
|servers
|service_broker_endpoints
|service_contract_message_usages
|service_contract_usages
|service_contracts
|service_message_types
|service_queue_usages
|service_queues
|services
|soap_endpoints
|spatial_index_tessellations
|spatial_indexes
|spatial_reference_systems
|sql_dependencies
|sql_logins
|sql_modules
|stats
|stats_columns
|symmetric_keys
|synonyms
|syscacheobjects
|syscharsets
|syscolumns
|syscomments
|sysconfigures
|sysconstraints
|syscurconfigs
|syscursorcolumns
|syscursorrefs
|syscursors
|syscursortables
|sysdatabases
|sysdepends
|sysdevices
|sysfilegroups
|sysfiles
|sysforeignkeys
|sysfulltextcatalogs
|sysindexes
|sysindexkeys
|syslanguages
|syslockinfo
|syslogins
|sysmembers
|sysmessages
|sysobjects
|sysoledbusers
|sysopentapes
|sysperfinfo
|syspermissions
|sysprocesses
|sysprotects
|sysreferences
|sysremotelogins
|sysservers
|system_columns
|system_components_surface_area_configuration
|system_objects
|system_parameters
|system_sql_modules
|system_views
|systypes
|sysusers
|table_types
|tables
|tcp_endpoints
|trace_categories
|trace_columns
|trace_event_bindings
|trace_events
|trace_subclass_values
|traces
|transmission_queue
|trigger_event_types
|trigger_events
|triggers
|type_assembly_usages
|types
|user_token
|via_endpoints
|views
|xml_indexes
|xml_schema_attributes
|xml_schema_collections
|xml_schema_component_placements
|xml_schema_components
|xml_schema_elements
|xml_schema_facets
|xml_schema_model_groups
|xml_schema_namespaces
|xml_schema_types
|xml_schema_wildcard_namespaces
|xml_schema_wildcards
)/x
};
my $dsn = "dbi:ODBC:driver={SQL Server};Server={localhost\\SQLEXPRESS};"
. "Trusted_Connection=No;AutoTranslate=No;Database=dbix_custom;";
has dsn => $dsn;
has user => 'dbix_custom';
has password => 'dbix_custom';
sub create_table1 { "create table $table1 ($key1 varchar(255), $key2 varchar(255))" }
sub create_table1_2 {"create table $table1 ($key1 varchar(255), $key2 varchar(255), "
. "$key3 varchar(255), $key4 varchar(255), $key5 varchar(255))" }
sub create_table1_type { "create table $table1 ($key1 $date_typename, $key2 $datetime_typename)" }
sub create_table1_highperformance { "create table $table1 ($key1 varchar(255), $key2 varchar(255), "
. "$key3 varchar(255), $key4 varchar(255), $key5 varchar(255), $key6 varchar(255), $key7 varchar(255))" }
sub create_table2 { "create table $table2 ($key1 varchar(255), $key3 varchar(255))" }
sub create_table2_2 { "create table $table2 ($key1 varchar(255), $key2 varchar(255), $key3 varchar(255))" }
sub create_table3 { "create table $table3 ($key1 varchar(255), $key2 varchar(255), $key3 varchar(255))" }
sub create_table_reserved { 'create table "table" ("select" varchar(255), "update" varchar(255))' }
}
require "$FindBin::Bin/common.t";