190 lines
5.3 KiB
Text
190 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
|