diff --git a/libgnucash/engine/test/CMakeLists.txt b/libgnucash/engine/test/CMakeLists.txt
index a19c1fbf16..5acda904b5 100644
--- a/libgnucash/engine/test/CMakeLists.txt
+++ b/libgnucash/engine/test/CMakeLists.txt
@@ -217,7 +217,6 @@ gnc_add_test_with_guile(test-scm-query test-scm-query.cpp ENGINE_TEST_INCLUDE_DI
 set(engine_test_SCHEME
   test-account.scm
   test-create-account.scm
-  test-test-extras.scm
   test-split.scm
   )
 
@@ -315,7 +314,6 @@ set(test_engine_SCHEME_DIST
         test-extras.scm
         test-scm-query-import.scm
         test-split.scm
-        test-test-extras.scm
 )
 
 set(test_engine_EXTRA_DIST
diff --git a/libgnucash/engine/test/test-test-extras.scm b/libgnucash/engine/test/test-test-extras.scm
deleted file mode 100644
index cc70e6fe6a..0000000000
--- a/libgnucash/engine/test/test-test-extras.scm
+++ /dev/null
@@ -1,45 +0,0 @@
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2 of
-;; the License, or (at your option) any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, contact:
-;;
-;; Free Software Foundation           Voice:  +1-617-542-5942
-;; 51 Franklin Street, Fifth Floor    Fax:    +1-617-542-2652
-;; Boston, MA  02110-1301,  USA       gnu@gnu.org
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(debug-set! stack 50000)
-(use-modules (gnucash gnc-module))
-(gnc:module-begin-syntax (gnc:module-load "gnucash/app-utils" 0))
-(use-modules (gnucash engine test test-extras))
-(use-modules (ice-9 streams))
-(use-modules (gnucash engine))
-(use-modules (sw_engine))
-
-(define (run-test)
- (test-create-account-structure))
-
-(define (test-create-account-structure)
-  (let ((env (create-test-env)))
-    (let ((accounts (env-create-account-structure env (list "Assets"
-							    (list (cons 'type ACCT-TYPE-ASSET))
-							    (list "Bank Account")
-							    (list "Savings"
-								  (list "Instant")
-								  (list "30 day notice"))))))
-      (and (= 3 (length accounts))
-	   (equal? "Assets" (xaccAccountGetName (car accounts)))
-	   ))))
-
-
-
-