#!/bin/sh

global test_description := ''git p4 handling of EDITOR''

source ./lib-git-p4.sh

test_expect_success 'start p4d' '
	start_p4d
'

test_expect_success 'init depot' '
	(
		cd "$cli" &&
		echo file1 >file1 &&
		p4 add file1 &&
		p4 submit -d "file1"
	)
'

# Check that the P4EDITOR argument can be given command-line
# options, which git-p4 will then pass through to the shell.
test_expect_success 'EDITOR with options' '
	git p4 clone --dest="$git" //depot &&
	test_when_finished cleanup_git &&
	(
		cd "$git" &&
		echo change >file1 &&
		git commit -m "change" file1 &&
		P4EDITOR=": >\"$git/touched\" && test-chmtime +5" git p4 submit &&
		test_path_is_file "$git/touched"
	)
'

test_expect_success 'kill p4d' '
	kill_p4d
'

test_done
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"git p4 handling of EDITOR">)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./lib-git-p4.sh)})
    (C {(test_expect_success)} {(SQ <"start p4d">)} {(SQ <"\n"> <"\tstart_p4d\n">)})
    (C {(test_expect_success)} {(SQ <"init depot">)} 
      {
        (SQ <"\n"> <"\t(\n"> <"\t\tcd \"$cli\" &&\n"> <"\t\techo file1 >file1 &&\n"> 
          <"\t\tp4 add file1 &&\n"> <"\t\tp4 submit -d \"file1\"\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"EDITOR with options">)} 
      {
        (SQ <"\n"> <"\tgit p4 clone --dest=\"$git\" //depot &&\n"> 
          <"\ttest_when_finished cleanup_git &&\n"> <"\t(\n"> <"\t\tcd \"$git\" &&\n"> <"\t\techo change >file1 &&\n"> 
          <"\t\tgit commit -m \"change\" file1 &&\n"> <"\t\tP4EDITOR=\": >\\\"$git/touched\\\" && test-chmtime +5\" git p4 submit &&\n"> 
          <"\t\ttest_path_is_file \"$git/touched\"\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"kill p4d">)} {(SQ <"\n"> <"\tkill_p4d\n">)})
    (C {(test_done)})
  ]
)