Index: openacs-4/packages/faq/tcl/test/faq-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/tcl/test/faq-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/faq/tcl/test/faq-procs.tcl 7 Aug 2017 23:48:10 -0000 1.3
+++ openacs-4/packages/faq/tcl/test/faq-procs.tcl 27 Mar 2018 15:54:14 -0000 1.4
@@ -52,7 +52,7 @@
aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_edit_one_faq {
- A simple test case to faq package : Test edit Faq - Fisrt Scenario.
+ A simple test case to faq package : Test edit Faq - First Scenario.
} {
aa_run_with_teardown -test_code {
@@ -324,7 +324,7 @@
# Swap with next Question_Answer
set response [faq::twt::swap_with_next_Q_A $faq_name]
- aa_display_result -response $response -explanation {Webtest for swaping a question with a next in a Faq}
+ aa_display_result -response $response -explanation {Webtest for swapping a question with a next in a Faq}
twt::user::logout
}
Index: openacs-4/packages/faq/tcl/test/tclwebtest-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/tcl/test/tclwebtest-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/faq/tcl/test/tclwebtest-procs.tcl 7 Aug 2017 23:48:10 -0000 1.3
+++ openacs-4/packages/faq/tcl/test/tclwebtest-procs.tcl 27 Mar 2018 15:54:14 -0000 1.4
@@ -30,7 +30,7 @@
aa_log "$response_url"
if {[string match "*admin/one-faq*" $response_url] } {
if { [catch {tclwebtest::form find ~n "faq_add_edit"} errmsg] || [catch {tclwebtest::field find ~v "$faq_name"} errmsg] } {
- aa_error "faq::twt::new failed $errmsg : Dont't create a New Faq"
+ aa_error "faq::twt::new failed $errmsg : Don't create a New Faq"
} else {
aa_log "New faq Created !!"
set response 1
@@ -59,7 +59,7 @@
if { [string match "*admin/*" $response_url] } {
if {![catch {tclwebtest::link find "$faq_name" } errmsg]} {
- aa_error "faq::twt::delete failed $errmsg : Dont't delete $faq_name Faq"
+ aa_error "faq::twt::delete failed $errmsg : Don't delete $faq_name Faq"
} else {
aa_log "Faq Deleted"
set response 1
@@ -95,7 +95,7 @@
if {[string match "*admin/one-faq*" $response_url] } {
if { [catch {tclwebtest::form find ~n "faq_add_edit"} errmsg] || [catch {tclwebtest::field find ~v "$faq_new_name"} errmsg] } {
- aa_error "faq::twt::edit_one failed $errmsg : Dont't Edit a Faq"
+ aa_error "faq::twt::edit_one failed $errmsg : Don't Edit a Faq"
} else {
aa_log "Faq Edited"
set response 1
@@ -134,7 +134,7 @@
if {[string match "*admin/one-faq*" $response_url] } {
if { [catch {tclwebtest::form find ~n "faq_add_edit"} errmsg] || [catch {tclwebtest::field find ~v "$faq_new_name"} errmsg] } {
- aa_error "faq::twt::edit_two failed $errmsg : Dont't Edit a Faq"
+ aa_error "faq::twt::edit_two failed $errmsg : Don't Edit a Faq"
} else {
aa_log "Faq Edited"
set response 1
@@ -167,7 +167,7 @@
if { [string match "*$faq_page_url*" $response_url] } {
if {![catch {tclwebtest::link find ~u $optionurl } errmsg]} {
- aa_error "faq::twt::$option failed $errmsg : Dont't $option $faq_name Faq"
+ aa_error "faq::twt::$option failed $errmsg : Don't $option $faq_name Faq"
} else {
aa_log "Faq $option"
set response 1
@@ -206,7 +206,7 @@
if { [string match "*admin/one-faq*" $response_url] } {
if { [catch {tclwebtest::assert text "$question"} errmsg] } {
- aa_error "faq::twt::new_Q_A : failed $errmsg : Dont't Create New Question"
+ aa_error "faq::twt::new_Q_A : failed $errmsg : Don't Create New Question"
} else {
aa_log "New Faq Question Created"
set response 1
@@ -244,7 +244,7 @@
if { [string match "*admin/one-faq*" $response_url] } {
if { [catch {tclwebtest::assert text "$new_question"} errmsg] } {
- aa_error "faq::twt::edit_Q_A : failed $errmsg : Dont't Edit a Question"
+ aa_error "faq::twt::edit_Q_A : failed $errmsg : Don't Edit a Question"
} else {
aa_log "Faq Question Edited"
set response 1
@@ -276,7 +276,7 @@
if { [string match "*admin/one-question*" $response_url] } {
if { [catch {tclwebtest::assert text "$question_text"} errmsg] || [catch {tclwebtest::assert text "$answer_text"} errmsg] } {
- aa_error "faq::twt::preview_Q_A : failed $errmsg : Dont't Preview a Question"
+ aa_error "faq::twt::preview_Q_A : failed $errmsg : Don't Preview a Question"
} else {
aa_log "Faq Question Previewed"
set response 1
@@ -307,7 +307,7 @@
if { [string match "*admin/one-faq*" $response_url] } {
if { [catch {tclwebtest::assert text -fail "$question"} errmsg] } {
- aa_error "faq::twt::delete_Q_A : failed $errmsg : Dont't Delete a Question"
+ aa_error "faq::twt::delete_Q_A : failed $errmsg : Don't Delete a Question"
} else {
aa_log "Faq Question Deleted"
set response 1
@@ -349,7 +349,7 @@
if { [string match "*admin/one-faq*" $response_url] } {
tclwebtest::link follow "delete"
if { [catch {tclwebtest::assert text "$question"} errmsg] } {
- aa_error "faq::twt::insert_after_Q_A : failed $errmsg : Dont't Insert After a Question"
+ aa_error "faq::twt::insert_after_Q_A : failed $errmsg : Don't Insert After a Question"
} else {
aa_log "Faq Question inserted after a nother"
set response 1
@@ -378,7 +378,7 @@
set response_url [tclwebtest::response url]
if { [string match "*admin/one-faq*" $response_url] } {
- aa_log "Faq Question swaped with next question"
+ aa_log "Faq Question swapped with next question"
set response 1
} else {
Index: openacs-4/packages/faq-portlet/tcl/test/faq-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq-portlet/tcl/test/faq-portlet-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/faq-portlet/tcl/test/faq-portlet-procs.tcl 7 Aug 2017 23:48:11 -0000 1.3
+++ openacs-4/packages/faq-portlet/tcl/test/faq-portlet-procs.tcl 27 Mar 2018 15:54:14 -0000 1.4
@@ -28,7 +28,7 @@
aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_delete_faq_portlet {
- Testing the process of creating and deleteing a Faq from the portlet.
+ Testing the process of creating and deleting a Faq from the portlet.
} {
aa_run_with_teardown -test_code {