code.delx.au - gnu-emacs-elpa/blob - packages/javaimp/javaimp-tests.el

   1 ;;; javaimp-tests.el --- javaimp module tests  -*- lexical-binding: t; -*-
   2
   3 ;; Copyright (C) 2016  Free Software Foundation, Inc.
   4
   5 ;; Author: Filipp Gunbin <fgunbin@fastmail.fm>
   6 ;; Maintainer: Filipp Gunbin <fgunbin@fastmail.fm>
   7
   8 (require 'ert)
   9 (require 'javaimp)
  10
  11 (ert-deftest javaimp-test--maven-xml-extract-projects--project ()
  12   (with-temp-buffer
  13     (insert "<project/>")
  14     (let ((projects (javaimp--maven-xml-extract-projects
  15                      (xml-parse-region (point-min) (point-max)))))
  16       (should (eql (length projects) 1)))))
  17
  18 (ert-deftest javaimp-test--maven-xml-extract-projects--projects ()
  19   (with-temp-buffer
  20     (insert "<projects><project/><project/></projects>")
  21     (let ((projects (javaimp--maven-xml-extract-projects
  22                      (xml-parse-region (point-min) (point-max)))))
  23       (should (eql (length projects) 2)))))