r15022 - gnucash/branches/swig-redo/src/app-utils/test - Remove disabled test of removed guile api.

Chris Shoemaker chris at cvs.gnucash.org
Fri Oct 13 23:15:34 EDT 2006


Author: chris
Date: 2006-10-13 23:15:33 -0400 (Fri, 13 Oct 2006)
New Revision: 15022
Trac: http://svn.gnucash.org/trac/changeset/15022

Removed:
   gnucash/branches/swig-redo/src/app-utils/test/test-component-manager
Log:
Remove disabled test of removed guile api.


Deleted: gnucash/branches/swig-redo/src/app-utils/test/test-component-manager
===================================================================
--- gnucash/branches/swig-redo/src/app-utils/test/test-component-manager	2006-10-13 20:11:16 UTC (rev 15021)
+++ gnucash/branches/swig-redo/src/app-utils/test/test-component-manager	2006-10-14 03:15:33 UTC (rev 15022)
@@ -1,49 +0,0 @@
-#! /bin/bash
-exec guile -s "$0" 
-!#
-
-(use-modules (gnucash gnc-module))
-(gnc:module-system-init)
-
-(or (gnc:module-load "gnucash/app-utils" 0)
-    (error "can't load module"))
-
-(let ((id #f)
-      (refresh-ran #f)
-      (close-ran #f))
-
-  (define (refresh-handler)
-    (set! refresh-ran #t))
-
-  (define (close-handler)
-    (set! close-ran #t)
-    (gnc:unregister-gui-component id))
-
-  (set! id (gnc:register-gui-component "test-class"
-                                       refresh-handler
-                                       close-handler))
-  (or (not (equal? id -1))
-      (error "can't register"))
-
-  (gnc:gui-refresh-all)
-
-  (or refresh-ran (error "refresh didn't run"))
-
-  (gnc:close-gui-component id)
-
-  (or close-ran (error "close didn't run"))
-
-  (set! refresh-ran #f)
-  (set! close-ran #f)
-
-  (gnc:gui-refresh-all)
-  (gnc:close-gui-component id)
-
-  (or (not (or refresh-ran close-ran))
-      (error "component not removed")))
-
-(exit 0)
-
-;; Local Variables:
-;; mode: scheme
-;; End:



More information about the gnucash-changes mailing list