Check-in [32c2050e25]

Not logged in
Tcl 2015 Conference, Manassas/VA, US, Oct 19-23
Send your abstracts to tclconference@googlegroups.com by Aug 24.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Expose the test commands for city and location validation
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | active-on-core
Files: files | file ages | folders
SHA1:32c2050e25f94ebac16be94ee0d2bbfa1c5c5232
User & Date: aku 2017-09-25 17:51:49
Context
2017-09-25
17:52
Fix schema syntax oopses in recent work on contacts check-in: e51281808d user: aku tags: active-on-core
17:51
Expose the test commands for city and location validation check-in: 32c2050e25 user: aku tags: active-on-core
17:51
Fixes to city validation, added introspection and testing to same. check-in: 46916d9772 user: aku tags: active-on-core
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to lib/cm.tcl.

377
378
379
380
381
382
383










384
385
386
387
388
389
390
....
2522
2523
2524
2525
2526
2527
2528












2529
2530
2531
2532
2533
2534
2535
	alias add

	private list {
	    section {City Management}
	    description { Show a table of all known cities }
	} [cm::call city cmd_list]











	# remove - if not used
	# modify - change state, nation
    }
    alias cities = city list

    # # ## ### ##### ######## ############# ######################
    ## Manage locations, i.e. hotels, resorts, conference centers, etc.
................................................................................
		Generate a test mail and send it using the current
		mail configuration.
	    }
	    input destination {
		The destination address to send the test mail to.
	    } { }
	} [cm::call mailer cmd_test_mail_config]













	# - -- --- ----- -------- -------------

	private series-known {
	    description {Print validation dictionary}
	} [cm::call series test-known]








>
>
>
>
>
>
>
>
>
>







 







>
>
>
>
>
>
>
>
>
>
>
>







377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
....
2532
2533
2534
2535
2536
2537
2538
2539
2540
2541
2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
	alias add

	private list {
	    section {City Management}
	    description { Show a table of all known cities }
	} [cm::call city cmd_list]

	private show {
	    section {City Management}
	    description { Show data for the chosen city }
	    input city { City to show } {
		optional
		validate [cm::vt city]
		generate [cm::call city select]
	    }
	} [cm::call city cmd_show]

	# remove - if not used
	# modify - change state, nation
    }
    alias cities = city list

    # # ## ### ##### ######## ############# ######################
    ## Manage locations, i.e. hotels, resorts, conference centers, etc.
................................................................................
		Generate a test mail and send it using the current
		mail configuration.
	    }
	    input destination {
		The destination address to send the test mail to.
	    } { }
	} [cm::call mailer cmd_test_mail_config]

	# - -- --- ----- -------- -------------

	private city-known {
	    description {Print validation dictionary}
	} [cm::call city test-known]

	# - -- --- ----- -------- -------------

	private location-known {
	    description {Print validation dictionary}
	} [cm::call location test-known]

	# - -- --- ----- -------- -------------

	private series-known {
	    description {Print validation dictionary}
	} [cm::call series test-known]