Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

new feature: browse parent/base classes

svn path=/bioperl-dev/trunk/; revision=16443
  • Loading branch information...
commit 8bfd3802b79ac5cd0419fd15573006d347fd9c76 1 parent a5286ab
maj authored
Showing with 13 additions and 0 deletions.
  1. +13 −0 ide/emacs/bioperl-mode/test/bioperl-mode-test.el
View
13 ide/emacs/bioperl-mode/test/bioperl-mode-test.el
@@ -46,6 +46,19 @@
(test-assert-equal (bioperl-split-name "Bio::Se" nil) '("Bio" "*Se"))
(test-assert-equal (bioperl-split-name "Bio::Se" t) '("*Bio::Se" nil))
+ ;; find parent classes
+ (with-temp-buffer
+ (insert-file-contents "test-path-1/Bio/SeqIO.pm")
+ (setq bioperl-test-var (bioperl-find-class-parents (current-buffer))))
+ (test-assert-equal bioperl-test-var
+ '("Bio::Root::Root" "Bio::Root::IO"
+ "Bio::Factory::SequenceStreamI") )
+ (with-temp-buffer
+ (insert-file-contents "test-path-1/Bio/SeqIO/abi.pm")
+ (setq bioperl-test-var (bioperl-find-class-parents (current-buffer))))
+ (test-assert-equal bioperl-test-var
+ '("Bio::SeqIO" "Bio::SeqIO::staden::read") )
+
)
;;
Please sign in to comment.
Something went wrong with that request. Please try again.