#!/bin/sh

global test_description := ''basic clone options''
source ./test-lib.sh

test_expect_success 'setup' '

	mkdir parent &&
	(cd parent && git init &&
	 echo one >file && git add file &&
	 git commit -m one)

'

test_expect_success 'clone -o' '

	git clone -o foo parent clone-o &&
	(cd clone-o && git rev-parse --verify refs/remotes/foo/master)

'

test_expect_success 'redirected clone does not show progress' '

	git clone "file://$(pwd)/parent" clone-redirected >out 2>err &&
	! grep % err &&
	test_i18ngrep ! "Checking connectivity" err

'

test_expect_success 'redirected clone -v does show progress' '

	git clone --progress "file://$(pwd)/parent" clone-redirected-progress \
		>out 2>err &&
	grep % err

'

test_done
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"basic clone options">)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(test_expect_success)} {(SQ <setup>)} 
      {
        (SQ <"\n"> <"\n"> <"\tmkdir parent &&\n"> <"\t(cd parent && git init &&\n"> 
          <"\t echo one >file && git add file &&\n"> <"\t git commit -m one)\n"> <"\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"clone -o">)} 
      {
        (SQ <"\n"> <"\n"> <"\tgit clone -o foo parent clone-o &&\n"> 
          <"\t(cd clone-o && git rev-parse --verify refs/remotes/foo/master)\n"> <"\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"redirected clone does not show progress">)} 
      {
        (SQ <"\n"> <"\n"> <"\tgit clone \"file://$(pwd)/parent\" clone-redirected >out 2>err &&\n"> 
          <"\t! grep % err &&\n"> <"\ttest_i18ngrep ! \"Checking connectivity\" err\n"> <"\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"redirected clone -v does show progress">)} 
      {
        (SQ <"\n"> <"\n"> 
          <"\tgit clone --progress \"file://$(pwd)/parent\" clone-redirected-progress \\\n"> <"\t\t>out 2>err &&\n"> <"\tgrep % err\n"> <"\n">
        )
      }
    )
    (C {(test_done)})
  ]
)