DBIx-Custom / t / common-sqlserver.t /
5c958e6 13 years ago
1 contributor
427 lines | 13.271kb
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";