# 49: Tue Apr 28 08:27:09 EDT 1987
{x_.1234567890123; x==as.vector(as.vector(x,"character"),"double")}

# 138: Mon Dec 28 07:42:30 EST 1987
#REVISED: the solution to 138 was inconsistent with S semantics for operators
{TTT <- numeric(0)^2; length(TTT)==1 && is.na(TTT)}

# 142: Thu Dec 31 10:08:25 EST 1987
all(seq(1,to=30,by=10)==c(1,11,21))

# 145: Mon Jan 4 12:51:16 EST 1988
all(diag(3)[cbind(1:3,1:3)]==1)

# 143: Mon Jan 4 11:46:18 EST 1988
all(is.null(if(F)1),is.null(switch("x",a=1)))

# 146: Mon Jan 4 12:54:12 EST 1988
{m_diag(3); m[row(m)==col(m)]_99; all(m==diag(3)*99)}

# 220: Wed Feb 3 11:40:31 EST 1988
{b_1:5;names(b)_letters[1:5]
all(b["a"]==b[["a"]],is.null(b$a))
}

# 192: Tue Jan 26 16:16:33 EST 1988
mode(for (ii in NULL)ii)=="missing"

# this one commented out so that the tests will not require libraries
# to be made (library/liblist could be empty during a SYSGEN)
# 288: Wed Mar 16 12:49:39 EST 1988
#{library(examples,T);TT_all(digits(1000)==c(1,0,0,0),digits(10000)[1]==1);detach(); TT}

# 306: Wed Mar 23 17:28:09 EST 1988
all(rank(rep(1:5,2))==.5:4.5+1:5)

# 182: Fri Jan 22 13:13:31 EST 1988
min(NULL,3.2)==max(NULL,3.2)

# 231: Wed Feb 10 13:43:17 EST 1988
# 304: Wed Mar 23 11:41:35 EST 1988
# 308: Thu Mar 24 09:27:22 EST 1988
# 331: Tue Mar 29 11:58:02 EST 1988
# 341: Wed Mar 30 14:54:11 EST 1988
{tt_c(1,2,NA,3,4)
	all(
	is.na(all(tt<6)),
	!all(tt<3),
	is.na(any(tt>6)),
	any(tt>3),
	is.na(sum(tt)),
	is.na(min(tt)),
	is.na(max(tt))
	)
}

# 327: Mon Mar 28 11:53:57 EST 1988
all(is.na(rep(numeric(),length=5)))
{x_rep(numeric(),5);all(length(x)==0,is.numeric(x))}

# 277: Mon Mar 7 06:26:07 EST 1988
all(is.na(1:7+numeric(0)))

# 273: Thu Mar 3 07:47:11 EST 1988
all(co2+window(co2,1962,c(1962,12))==2*window(co2,1962,c(1962,12)))

# 293: Fri Mar 18 10:56:10 EST 1988
{m_matrix(12:1,3,4,T)
all(1:3 %*% m == c(40,34,28,22))
all(1:3 %*% m == apply(1:3*m,2,sum))}

# 240: Thu Feb 18 17:55:23 EST 1988
#REVISED: the c() function should NOT use argument names
#REREVISED: the c() function SHOULD use argument names
{ttt_list(a=1,b=2); sss_c(b=3,ttt); all(names(sss)==c("b","a","b"))}

# 345: Mon Apr 4 16:05:41 EDT 1988
{tmp_matrix(1:4,2,2);names(tmp)_letters[1:4]
dimnames(tmp)_list(x=c("A","B"),y=c("C","D"))
all(names(tmp[,1])==c("a", "b"))}

# 352: Thu Apr 7 06:27:01 EDT 1988
{
	ttt_list(a=1,  # comment
 b=2,
 c=3)
	all(unlist(ttt)==1:3)
}

# 366: Fri Apr 15 13:34:20 EDT 1988
all(c(a=1,b=2)==1:2)

# 374: Sun Apr 24 09:28:49 EDT 1988
all(rbind(matrix(1:10,10,1),11)==1:11)

# 184: Sat Jan 23 15:02:05 EST 1988
#THIS TEST HAS BECOME AN ERROR
#exists(".Audit")==F

# 217: Wed Feb 3 08:26:16 EST 1988
# text(numeric(0),numeric(0),"-")

# 392: Mon May 2 17:17:09 EDT 1988
12^2-144==0

# 317: Fri Mar 25 13:38:15 EST 1988
{z_vector("list",5); mode(z[[1]])=="NULL"}

# 386: Fri Apr 29 05:35:59 EDT 1988
{tmp<-1:3;names(tmp)<-letters[tmp];all(1:tmp[3]==tmp)}

# 406: Mon May 16 15:52:29 EDT 1988
{x_list(); y_list(); x[[1]]_1:2; y[[1]]_1/x[[1]]; all(x[[1]]==1:2)}

# 402: Mon May 16 11:23:24 EDT 1988
# This is a StatSci addition -chris
{
	temp <- tempfile()
	write('1\t\t2\n', file=temp)
	ans <- all(is.na(scan(temp,sep="\t"))==c(F,T,F)) 
	unlink(temp)
	ans
}

# 415: Thu May 26 06:19:49 EDT 1988
{sss<-2:2; round(sss,2)==2}

# 409: Tue May 17 11:08:28 EDT 1988
all(NULL)

# 405: Mon May 16 15:39:03 EDT 1988
{X_list(a=list(p=1:5,q=201:202),b=list(p=3:4,q=44:55));
attr(X,"goop")_"ZZZZ"
all((X[[1]][[1]]_X[[1]][[1]]-1)==0:4)}

# 413: Tue May 24 12:38:45 EDT 1988
{ tmplist <- tempfile() ; T }
mode(for(p in list(list(x=T))) {
	dput(p, tmplist)
	!p$x
	dput(p, tmplist)
}) == "list"

# 433: Tue Jun 21 17:50:34 EDT 1988
{X_1; all(names(attributes(X)_list(ddd=4,ee=5,dd=6))==c("ddd","ee","dd"))}

# 434: Thu Jun 23 15:26:18 EDT 1988
{attr(X,"ee")_NULL; all(names(attributes(X))==c("ddd","dd"))}

#612: Sat Feb 18 09:20:26 EST 1989
{z_list(a=letters[1:2],b="c"); counter<<-0; foo_function(){counter<<-counter+1; counter}; z$a[2]_foo(); all(unlist(z)==c("a","1","c"))}

#649: apply
{ m <- matrix(1:12,3,4); apply(m,1,function(x)x[x>7])[[1]]==10 }

#685: apply
{ m <- matrix(1:12,3,4); length(apply(m,1,function(x)x[x>10])[[1]])==0 }

#701: apply
{ m <- matrix(1:12,3,4); dimnames(m) <- list(letters[1:3],NULL);
all(names(apply(m,1,sum))==letters[1:3])}

#753: sapply
length(sapply(list(),function(x)x))==0
length(sapply(list(1,NULL,3),function(x)x))==3