|  | @@ -4,8 +4,10 @@
 | 
	
		
			
				|  |  |     [logseq.e2e.block :as b]
 | 
	
		
			
				|  |  |     [logseq.e2e.fixtures :as fixtures]
 | 
	
		
			
				|  |  |     [logseq.e2e.keyboard :as k]
 | 
	
		
			
				|  |  | +   [logseq.e2e.page :as p]
 | 
	
		
			
				|  |  |     [logseq.e2e.util :as util]
 | 
	
		
			
				|  |  | -   [wally.main :as w]))
 | 
	
		
			
				|  |  | +   [wally.main :as w]
 | 
	
		
			
				|  |  | +   [wally.repl :as repl]))
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  |  (use-fixtures :once fixtures/open-page)
 | 
	
		
			
				|  |  |  (use-fixtures :each
 | 
	
	
		
			
				|  | @@ -44,6 +46,23 @@
 | 
	
		
			
				|  |  |      (let [[x2 x3 x4 x5] (map (comp first util/bounding-xy #(w/find-one-by-text "span" %)) ["b2" "b3" "b4" "b5"])]
 | 
	
		
			
				|  |  |        (is (and (= x2 x4) (= x3 x5) (< x2 x3))))))
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  | +(defn indent-outdent-embed-page []
 | 
	
		
			
				|  |  | +  (p/new-page "Page embed")
 | 
	
		
			
				|  |  | +  (b/new-blocks ["b1" "b2"])
 | 
	
		
			
				|  |  | +  (p/new-page "Page testing")
 | 
	
		
			
				|  |  | +  (b/new-blocks ["b3" ""])
 | 
	
		
			
				|  |  | +  (util/input-command "Node embed")
 | 
	
		
			
				|  |  | +  (util/press-seq "Page embed" {:delay 60})
 | 
	
		
			
				|  |  | +  (k/press "Enter" {:delay 60})
 | 
	
		
			
				|  |  | +  (util/exit-edit)
 | 
	
		
			
				|  |  | +  (b/new-blocks ["b4"])
 | 
	
		
			
				|  |  | +  (b/outdent)
 | 
	
		
			
				|  |  | +  (b/indent)
 | 
	
		
			
				|  |  | +  (util/exit-edit)
 | 
	
		
			
				|  |  | +  (let [[x2 x3 x4] (map (comp first util/bounding-xy #(w/find-one-by-text "span" %)) ["b2" "b3" "b4"])]
 | 
	
		
			
				|  |  | +    (is (= x2 x4))
 | 
	
		
			
				|  |  | +    (is (< x3 x2))))
 | 
	
		
			
				|  |  | +
 | 
	
		
			
				|  |  |  (defn move-up-down []
 | 
	
		
			
				|  |  |    (b/new-blocks ["b1" "b2" "b3" "b4"])
 | 
	
		
			
				|  |  |    (util/repeat-keyboard 2 "Shift+ArrowUp")
 | 
	
	
		
			
				|  | @@ -90,6 +109,9 @@
 | 
	
		
			
				|  |  |  (deftest indent-and-outdent-test
 | 
	
		
			
				|  |  |    (indent-and-outdent))
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  | +(deftest indent-outdent-embed-page-test
 | 
	
		
			
				|  |  | +  (indent-outdent-embed-page))
 | 
	
		
			
				|  |  | +
 | 
	
		
			
				|  |  |  (deftest move-up-down-test
 | 
	
		
			
				|  |  |    (move-up-down))
 | 
	
		
			
				|  |  |  
 |