Index: openacs-4/packages/xowf/lib/inclass-exam.wf
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/Attic/inclass-exam.wf,v
diff -u -N -r1.1.2.62 -r1.1.2.63
--- openacs-4/packages/xowf/lib/inclass-exam.wf	1 Apr 2021 17:24:57 -0000	1.1.2.62
+++ openacs-4/packages/xowf/lib/inclass-exam.wf	3 Apr 2021 17:25:23 -0000	1.1.2.63
@@ -323,7 +323,7 @@
     "published" {
       append extraAction "<br>" \
           "#xowf.online-exam-can_answer# " \
-          "<a href='$aLink'>$aLink</a>"
+          "<a class='answer' href='$aLink'>$aLink</a>"
     }
   }
 
@@ -367,7 +367,7 @@
     append text [subst {
       <div class='container-fluid'><div class='row'>
       <div class="col-sm-9">$answerStatus</div>
-      <div class="col-sm-3">$qrCode</div>      
+      <div class="col-sm-3">$qrCode</div>
       <div class="col-sm-9 quiz-preview">$fullQuestionForm</div>
       <div class="col-sm-6">$countdownHTML</div>
       </div></div>
Index: openacs-4/packages/xowf/tcl/test/test-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test/Attic/test-item-procs.tcl,v
diff -u -N -r1.1.2.7 -r1.1.2.8
--- openacs-4/packages/xowf/tcl/test/test-item-procs.tcl	19 Mar 2021 19:18:26 -0000	1.1.2.7
+++ openacs-4/packages/xowf/tcl/test/test-item-procs.tcl	3 Apr 2021 17:25:23 -0000	1.1.2.8
@@ -1,19 +1,19 @@
 namespace eval ::xowf::test {
 
-    aa_register_init_class \
-        xowf_require_test_instance {
-            Make sure the test instance is there and create it if necessary.
-        } {
-            aa_export_vars {_xowf_test_instance_name}
-            set _xowf_test_instance_name /xowf-test
-            ::acs::test::require_package_instance \
-                -package_key xowf \
-                -instance_name $_xowf_test_instance_name
-        } {
-            # Here one might unmount the package afterwards. Right now
-            # we decide to keep it so it is possible to e.g. inspect
-            # the results or test further in the mounted instance.
-        }
+    # aa_register_init_class \
+    #     xowf_require_test_instance {
+    #         Make sure the test instance is there and create it if necessary.
+    #     } {
+    #         aa_export_vars {_xowf_test_instance_name}
+    #         set _xowf_test_instance_name /xowf-test
+    #         ::acs::test::require_package_instance \
+    #             -package_key xowf \
+    #             -instance_name $_xowf_test_instance_name
+    #     } {
+    #         # Here one might unmount the package afterwards. Right now
+    #         # we decide to keep it so it is possible to e.g. inspect
+    #         # the results or test further in the mounted instance.
+    #     }
 
     aa_register_case -init_classes {xowf_require_test_instance} -cats {web} -procs {
         "::lang::system::locale"
@@ -181,15 +181,16 @@
                        -update {
                            __action_publish ""
                        }]
-            aa_log "inclass exam edited d=[ns_quotehtml $d]"
+            #aa_log "inclass exam edited d=[ns_quotehtml $d]"
+            acs::test::reply_has_status_code $d 200
 
             set response [dict get $d body]
             set answer_link ""
 
             acs::test::dom_html root $response {
-                set answer_link [::acs::test::xpath::get_text $root \
-                                     [subst {//form\[contains(@class,'Form-inclass-exam')\]//a}]]
-                aa_log "answer link is '$answer_link'"
+                set answer_link_info [$root selectNodes {//a[@class='answer']/@href}]
+                aa_log "answer link info is '$answer_link_info'"
+                set answer_link [lindex $answer_link_info 0 1]
                 aa_true "answer link is non empty '$answer_link'" {[string length $answer_link] > 0}
             }