Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 62 lines (45 sloc) 2.516 kb
1d47367 @jscheid Add license
authored
1 ;;; kite-tests.el --- Kite test suite
2
3 ;; Copyright (C) 2012 Julian Scheid
4
5eebac9 @jscheid Add email address to author name
authored
5 ;; Author: Julian Scheid <julians37@gmail.com>
afe1642 @jscheid Remove 'WWW' keyword
authored
6 ;; Keywords: tools
3deba10 @jscheid Improve package meta-data
authored
7 ;; Package: kite
8 ;; Compatibility: GNU Emacs 24
9
dc768cf @jscheid Add note that kite is not part of Emacs
authored
10 ;; This file is not part of GNU Emacs.
1d47367 @jscheid Add license
authored
11
12 ;; Kite is free software: you can redistribute it and/or modify it
13 ;; under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation, either version 3 of the License, or
15 ;; (at your option) any later version.
16
17 ;; Kite is distributed in the hope that it will be useful, but WITHOUT
18 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
19 ;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
20 ;; License for more details.
21
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with Kite. If not, see <http://www.gnu.org/licenses/>.
24
25 ;;; Commentary:
26
27 ;; Top-level package for the Kite test suite.
28 ;;
29 ;; It is part of Kite, a WebKit inspector front-end.
30
ded2424 @jscheid Start adding support for setting and removing breakpoints
authored
31 (require 'kite)
32 (require 'kite-dom-tests)
33 (require 'kite-breakpoint-tests)
0cb1ac1 @jscheid Implement tail follow in kite-console, fix require/provide for kite-c…
authored
34 (require 'kite-console-tests)
10a8b68 @jscheid Add module kite-color
authored
35 (require 'kite-color-tests)
ded2424 @jscheid Start adding support for setting and removing breakpoints
authored
36
fa86971 @jscheid First pass at execution context selection
authored
37 (ert-deftest kite-test-find-frame-by-id ()
38 "kite--frame-by-id works"
39
40e90bf @jscheid Add CL compat layer, fix remaining byte compilation issues
authored
40 (flet
41 ((websocket-open (&rest ignore) (websocket-inner-create :conn t :url t))
42 (kite--console-update-mode-line ())
43 (kite--find-buffer (&rest ignore))
44 (kite-send (method &rest keyword-args)
45 (when (string= method "Page.getResourceTree")
46 (funcall (plist-get keyword-args :success-function)
47 '(:frameTree (:childFrames [(:resources [] :frame (:securityOrigin null :name "" :parentId "12583.1" :mimeType "text/html" :url "file:///Users/julians/src/kite/misc/page1.html" :loaderId "12583.4" :id "12583.2"))] :resources [] :frame (:securityOrigin null :mimeType "text/html" :url "file:///Users/julians/src/kite/misc/twoframes.html" :loaderId "12583.3" :id "12583.1")))))))
48
49 (kite--connect-webservice (list :webSocketDebuggerUrl "dummy")))
fa86971 @jscheid First pass at execution context selection
authored
50
51 (should (kite--equal-wildcard
52 (kite--frame-by-id "12583.1")
53 '(:securityOrigin null :mimeType "text/html" :url "file:///Users/julians/src/kite/misc/twoframes.html" :loaderId "12583.3" :id "12583.1")))
54
55 (should (kite--equal-wildcard
56 (kite--frame-by-id "12583.2")
57 '(:securityOrigin null :name "" :parentId "12583.1" :mimeType "text/html" :url "file:///Users/julians/src/kite/misc/page1.html" :loaderId "12583.4" :id "12583.2"))))
58
ded2424 @jscheid Start adding support for setting and removing breakpoints
authored
59 (provide 'kite-tests)
015dfbb @jscheid Add end-of-file markers
authored
60
61 ;;; kite-tests.el ends here
Something went wrong with that request. Please try again.