#!perl

# Copyright (C) 2006, The Perl Foundation.
# $Id: cmd_lreplace.t 21247 2007-09-13 06:31:01Z paultcochrane $

# the following lines re-execute this as a tcl script
# the \ at the end of these lines makes them a comment in tcl \
use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \
use Tcl::Test; #\
__DATA__

source lib/test_more.tcl

plan 9

eval_is {lreplace list first} \
  {wrong # args: should be "lreplace list first last ?element element ...?"} \
  {too few args}

is [lreplace {a b c} 1 1]   {a c}     {delete 1}
is [lreplace {a b c} 1 1 d] {a d c}   {replace 1}
is [lreplace {a b c} 1 0 d] {a d b c} {insert 1}
is [lreplace {} 4 6 a b c]  {a b c}   {initial empty list}

eval_is {lreplace list 1 0} \
  {list doesn't contain element 1} \
  {doesn't contain element}

is [lreplace {a b c} -1  0] {b c}   {first negative}
is [lreplace {a b c} -1 -2] {a b c} {both negative}
is [lreplace {a b c} end-1 end d] {a d} {end replace}