191 lines
5.3 KiB
Text
191 lines
5.3 KiB
Text
|
#!/usr/bin/env expect
|
|||
|
|
|
|||
|
|
source "./test/helpers/setup.exp"
|
|||
|
|
|
|||
|
|
# searches at the top of the pane
|
|||
|
|
#--------------------------------
|
|||
|
|
display_text "http://example1.com"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
assert_highlighted "http://example1.com" "top of the pane, http"
|
|||
|
|
|
|||
|
|
new_tmux_pane
|
|||
|
|
display_text "https://example1.com"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
assert_highlighted "https://example1.com" "top of the pane, https"
|
|||
|
|
|
|||
|
|
# middle of pane searches
|
|||
|
|
#------------------------
|
|||
|
|
new_tmux_pane
|
|||
|
|
create_output
|
|||
|
|
clear_screen
|
|||
|
|
display_text "http://example2.com"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
assert_highlighted "http://example2.com" "middle of the pane, http, beginning of the line"
|
|||
|
|
|
|||
|
|
display_text "random http://example3.com"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
assert_highlighted "http://example3.com" "middle of the pane, http, not beginning of the line"
|
|||
|
|
|
|||
|
|
display_text "https://example4.com"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
assert_highlighted "https://example4.com" "middle of the pane, https, beginning of the line"
|
|||
|
|
|
|||
|
|
display_text "some text https://example5.com"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
assert_highlighted "https://example5.com" "middle of the pane, https, not beginning of the line"
|
|||
|
|
|
|||
|
|
create_output
|
|||
|
|
sleep 0.2
|
|||
|
|
send " http://example6.com "
|
|||
|
|
sleep 0.2
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
assert_highlighted "http://example6.com" "middle of the pane, http, pane bottom"
|
|||
|
|
|
|||
|
|
# other url scheme searches
|
|||
|
|
#--------------------------
|
|||
|
|
new_tmux_pane
|
|||
|
|
create_output
|
|||
|
|
clear_screen
|
|||
|
|
display_text "git@github.com:rails/rails.git"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
assert_highlighted "git@github.com:rails/rails.git" "middle of the pane, git url"
|
|||
|
|
|
|||
|
|
display_text "git://github.com/rails/rails.git"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
assert_highlighted "git://github.com/rails/rails.git" "middle of the pane, another git url"
|
|||
|
|
|
|||
|
|
display_text "ftp://ftp.foo.bar/baz/lorem/IPSUM/file.txt"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
assert_highlighted "ftp://ftp.foo.bar/baz/lorem/IPSUM/file.txt" "middle of the pane, ftp url"
|
|||
|
|
|
|||
|
|
display_text "file:///foo/bar/file.txt"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
assert_highlighted "file:///foo/bar/file.txt" "middle of the pane, file url"
|
|||
|
|
|
|||
|
|
# urls with parameters
|
|||
|
|
#---------------------
|
|||
|
|
new_tmux_pane
|
|||
|
|
display_text "http://example61.com?some=params"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
assert_highlighted "http://example61.com?some=params" "http, simple params"
|
|||
|
|
|
|||
|
|
# long links break tests, that's why the below one is shortened
|
|||
|
|
new_tmux_pane
|
|||
|
|
display_text "'https://github.com/H/h/b/g.rb'"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
assert_highlighted "https://github.com/H/h/b/g.rb" "github link"
|
|||
|
|
|
|||
|
|
# match selection when line contains escaped chars
|
|||
|
|
#-------------------------------------------------
|
|||
|
|
new_tmux_pane
|
|||
|
|
display_text "filename=test.csv\r\nContent-Type: http://example7.com\r\n"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
assert_highlighted "http://example7.com" "match selection when line contains escaped chars"
|
|||
|
|
|
|||
|
|
# result navigation
|
|||
|
|
#------------------
|
|||
|
|
new_tmux_pane
|
|||
|
|
display_text "http://example81.com"
|
|||
|
|
display_text "http://example82.com"
|
|||
|
|
display_text "http://example83.com"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
# http://example83.com
|
|||
|
|
next_match
|
|||
|
|
# http://example83.com
|
|||
|
|
next_match
|
|||
|
|
# http://example82.com
|
|||
|
|
next_match
|
|||
|
|
# http://example82.com
|
|||
|
|
next_match
|
|||
|
|
# http://example81.com
|
|||
|
|
previous_match
|
|||
|
|
# http://example82.com
|
|||
|
|
assert_highlighted "http://example82.com" "result navigation at the top of the pane"
|
|||
|
|
|
|||
|
|
create_output
|
|||
|
|
display_text "http://example91.com"
|
|||
|
|
display_text "http://example92.com"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
# http://example92.com
|
|||
|
|
next_match
|
|||
|
|
# http://example92.com
|
|||
|
|
next_match
|
|||
|
|
# http://example91.com
|
|||
|
|
previous_match
|
|||
|
|
# http://example92.com
|
|||
|
|
assert_highlighted "http://example92.com" "result navigation, middle of the pane"
|
|||
|
|
|
|||
|
|
# 2 matches on the same line
|
|||
|
|
#---------------------------
|
|||
|
|
new_tmux_pane
|
|||
|
|
display_text "http://example101.com http://example102.com"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
assert_highlighted "http://example101.com" "2 matches on the same line, first match"
|
|||
|
|
|
|||
|
|
display_text "http://example111.com http://example112.com"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
next_match
|
|||
|
|
assert_highlighted "http://example112.com" "2 matches on the same line, second match"
|
|||
|
|
|
|||
|
|
# works ok even with unicode characters in the line (requires gawk to be installed)
|
|||
|
|
#--------------------------------------------------
|
|||
|
|
new_tmux_pane
|
|||
|
|
display_text "Ξ ~CM_CONF_DIR → curl http://www.google.com"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
assert_highlighted "http://www.google.com" "match on the line with unicode characters"
|
|||
|
|
|
|||
|
|
display_text "↑127 ~CM_CONF_DIR → echo http://www.google.com"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
assert_highlighted "http://www.google.com" "another match on the line with unicode characters"
|
|||
|
|
|
|||
|
|
# no match, first and last match
|
|||
|
|
#-------------------------------
|
|||
|
|
new_tmux_pane
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
assert_on_screen "No results!" "No results is displayed when no results"
|
|||
|
|
|
|||
|
|
display_text "http://example12.com"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
next_match
|
|||
|
|
next_match
|
|||
|
|
assert_on_screen "Last match!" "'Last match' is displayed when last match"
|
|||
|
|
# exit copycat mode
|
|||
|
|
send ""
|
|||
|
|
|
|||
|
|
new_tmux_pane
|
|||
|
|
display_text "http://example13.com"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
next_match
|
|||
|
|
previous_match
|
|||
|
|
previous_match
|
|||
|
|
assert_on_screen "First match!" "'First match' is displayed when first match"
|
|||
|
|
# exit copycat mode
|
|||
|
|
send ""
|
|||
|
|
|
|||
|
|
# irb console searches
|
|||
|
|
#---------------------
|
|||
|
|
new_tmux_pane
|
|||
|
|
enter_irb
|
|||
|
|
irb_display_text "http://example14.com"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
irb_assert_highlighted "http://example14.com" "irb console, beginning of line"
|
|||
|
|
exit_irb
|
|||
|
|
|
|||
|
|
enter_irb
|
|||
|
|
irb_display_text "some text http://example15.com"
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
irb_assert_highlighted "http://example15.com" "irb console, not beginning of line"
|
|||
|
|
exit_irb
|
|||
|
|
|
|||
|
|
enter_irb
|
|||
|
|
irb_generate_output
|
|||
|
|
send "puts http://example16.com"
|
|||
|
|
sleep 5
|
|||
|
|
tmux_ctrl_u
|
|||
|
|
irb_assert_highlighted "http://example16.com" "irb console, pane bottom, not beginning of line"
|
|||
|
|
exit_irb
|
|||
|
|
|
|||
|
|
# quit
|
|||
|
|
#-----
|
|||
|
|
teardown_and_exit
|