DBIx-Custom / t / common-sqlserver.t /
Yuki Kimoto cleanup
5e8d869 12 years ago
1 contributor
428 lines | 12.484kb
use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/common";
$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";