Context Navigation

source: tailor/test-scripts/test-darcs2aegis-simple.sh @ 1596

Revision 1596, 12.7 KB checked in by <walter.franzini@…>, 5 years ago (diff)
test-darcs2aegis-simple.sh improvement

Line
1	#!/bin/sh
2	#
3	# Copyright (C) 2008 Walter Franzini
4	#
5	# NOTE: TABS in aegis metadata samples below must be preserved.
6	#
7
8	#
9	# This test expects to be run from the tailor top source dir, change
10	# the following line if the convention used by tailor developer(s)
11	# differs.
12	#
13	here=`pwd`
14
15	#
16	# To test against the stable aegis branch add the stable executables
17	# directory to the PATH. Only needed for aegis contributors.
18	#
19	aegis_stable_baseline=$(aegis -cd -p aegis.stable -bl 2> /dev/null)
20	if test -n "$aegis_stable_baseline"
21	then
22	PATH=$aegis_stable_baseline/linux-i486/bin:$PATH
23	fi
24
25	#
26	# Add the development dir to the PATH
27	#
28	PATH=$here:$PATH
29	export PATH
30
31	pass()
32	{
33	echo "PASSED:"
34	exit 0
35	}
36
37	fail()
38	{
39	echo "FAILED: $activity"
40	exit 1
41	}
42
43	no_result()
44	{
45	echo "NO_RESULT: $activity"
46	exit 2
47	}
48
49	#
50	# The following function is used to check aegis metadata files.
51	#
52	check_it()
53	{
54	sed -e "s\|$work\|...\|g" \
55	-e 's\|= [0-9][0-9]; /.\|= TIME;\|' \
56	-e "s/\"$USER\"/\"USER\"/g" \
57	-e 's/uuid = ".*"/uuid = "UUID"/' \
58	-e 's/19[0-9][0-9]/YYYY/' \
59	-e 's/20[0-9][0-9]/YYYY/' \
60	-e 's/node = ".*"/node = "NODE"/' \
61	-e 's/crypto = ".*"/crypto = "GUNK"/' \
62	< $2 > $work/sed.out
63	if test $? -ne 0; then no_result; fi
64	diff -B $1 $work/sed.out
65	if test $? -ne 0; then no_result; fi
66	}
67
68
69	#
70	# This test follows Aegis convention, where a test must be able to
71	# work even when the development directory is not writable, this
72	# happens when running tests in the integration stage.
73	#
74	work=${TMPDIR-/tmp}/TAILOR.$$
75	mkdir $work
76	if test $? -ne 0; then no_result; fi
77
78	cd $work
79
80	#
81	# Prepare the darcs repository
82	#
83	activity="darcs setup"
84	mkdir $work/darcs-repo > log 2>&1
85	if test $? -ne 0; then cat log; no_result; fi
86
87	darcs initialize --repodir=$work/darcs-repo > log 2>&1
88	if test $? -ne 0; then cat log; no_result; fi
89
90	activity="create foo"
91	mkdir $work/darcs-repo/dir
92	if test $? -ne 0; then no_result; fi
93
94	cat > $work/darcs-repo/dir/foo.txt <<EOF
95	A simple text file
96	EOF
97	if test $? -ne 0; then no_result; fi
98
99	darcs add dir/foo.txt --repodir=$work/darcs-repo > log 2>&1
100	if test $? -ne 0; then cat log; no_result; fi
101
102	darcs record --repodir=$work/darcs-repo -a -A Nobody -m "initial commit" \
103	> log 2>&1
104	if test $? -ne 0; then cat log; no_result; fi
105
106	cat > $work/darcs-repo/dir/foo.txt <<EOF
107	A simple text file
108	wit some more text.
109	EOF
110	if test $? -ne 0; then no_result; fi
111
112	cat > $work/darcs-repo/bar.txt <<EOF
113	This is bar.txt
114	EOF
115	if test $? -ne 0; then no_result; fi
116
117	darcs add bar.txt --repodir=$work/darcs-repo > log 2>&1
118	if test $? -ne 0; then cat log; no_result; fi
119
120	darcs record --repodir=$work/darcs-repo -a -A Nobody --ignore-time \
121	-m "second commit" > log 2>&1
122	if test $? -ne 0; then cat log; no_result; fi
123
124	cat > $work/darcs-repo/dir/foo.txt <<EOF
125	A simple text file
126	wit some more text.
127	more text again!
128	EOF
129	if test $? -ne 0; then no_result; fi
130
131	cat > $work/darcs-repo/bar.txt <<EOF
132	This will be baz.txt
133	EOF
134	if test $? -ne 0; then no_result; fi
135
136	darcs mv bar.txt baz.txt --repodir=$work/darcs-repo > log 2>&1
137	if test $? -ne 0; then cat log; no_result; fi
138
139	darcs record --repodir=$work/darcs-repo -a -A Nobody --ignore-time \
140	-m "third commit" > log 2>&1
141	if test $? -ne 0; then cat log; no_result; fi
142
143	#
144	# Initialize the aegis repository
145	#
146	unset AEGIS_PROJECT
147	unset AEGIS_CHANGE
148	unset AEGIS_PATH
149	unset AEGIS
150	umask 022
151
152	LINES=24
153	export LINES
154	COLS=80
155	export COLS
156
157	USER=${USER:-${LOGNAME:-`whoami`}}
158
159	PAGER=cat
160	export PAGER
161	AEGIS_THROTTLE=-1
162	export AEGIS_THROTTLE
163
164	# This tells aeintegratq that it is being used by a test.
165	AEGIS_TEST_DIR=$work
166	export AEGIS_TEST_DIR
167
168	if test $? -ne 0; then exit 2; fi
169
170	AEGIS_DATADIR=$here/lib
171	export AEGIS_DATADIR
172
173	AEGIS_MESSAGE_LIBRARY=$work/no-such-dir
174	export AEGIS_MESSAGE_LIBRARY
175	unset LANG
176	unset LANGUAGE
177	unset LC_ALL
178
179	AEGIS_PROJECT=example
180	export AEGIS_PROJECT
181	AEGIS_PATH=$work/lib
182	export AEGIS_PATH
183
184	mkdir $AEGIS_PATH
185
186	chmod 777 $AEGIS_PATH
187	if test $? -ne 0; then no_result; cat log; fi
188
189	workproj=$work/foo.proj
190	workchan=$work/foo.chan
191
192	#
193	# The project is NOT created by means of tailor since it should be
194	# created with a different user.
195	#
196	activity="new project"
197	aegis -npr $AEGIS_PROJECT -version "" -lib $AEGIS_PATH \
198	-dir $workproj/ > log 2>&1
199	if test $? -ne 0; then cat log; no_result; fi
200
201	activity="project_acttributes"
202	cat > $work/pa <<EOF
203	description = "A bogus project created to test tailor functionality.";
204	developer_may_review = true;
205	developer_may_integrate = true;
206	reviewer_may_integrate = true;
207	default_test_exemption = true;
208	develop_end_action = goto_awaiting_integration;
209	EOF
210	if test $? -ne 0 ; then no_result; fi
211
212	aegis -pa -f $work/pa > log 2>&1
213	if test $? -ne 0 ; then cat log; no_result; fi
214
215	#
216	# add the staff
217	#
218	activity="staff 62"
219	aegis -nd $USER > log 2>&1
220	if test $? -ne 0 ; then cat log; no_result; fi
221	aegis -nrv $USER > log 2>&1
222	if test $? -ne 0 ; then cat log; no_result; fi
223	aegis -ni $USER > log 2>&1
224	if test $? -ne 0 ; then cat log; no_result; fi
225
226	#
227	# tailor config
228	#
229	cat > $work/tailor.conf <<EOF
230	[DEFAULT]
231	verbose = true
232	Debug = true
233
234	[project]
235	patch-name-format = %(revision)s
236	root-directory = $PWD/rootdir
237	source = darcs:source
238	target = aegis:target
239
240	[darcs:source]
241	repository = $work/darcs-repo
242	subdir = darcs1side
243	darcs-command = /usr/bin/darcs
244
245	[aegis:target]
246	module = $AEGIS_PROJECT
247	subdir = aegisside
248	EOF
249	if test $? -ne 0; then no_result; fi
250
251	activity="run tailor"
252	python $here/tailor -c $work/tailor.conf > $work/tailor.log 2>&1
253	if test $? -ne 0; then cat $work/tailor.log; fail; fi
254
255	cat > $work/massage_history.awk <<'EOF'
256	/^Name:/ {print $0}
257	/^[0-9]/ {print $1, $7, $8, $9}
258	EOF
259	if test $? -ne 0; then no_result; fi
260
261	activity="check aegis project history"
262	cat > $work/ok <<EOF
263	1 10 initial commit
264	2 11 second commit
265	3 12 third commit
266	EOF
267	if test $? -ne 0; then no_result; fi
268
269	aegis -list project_history -unformatted 2> $work/log > $work/history
270	if test $? -ne 0; then cat $work/log; no_result; fi
271
272	awk -f $work/massage_history.awk < history > history.new
273	if test $? -ne 0; then no_result; fi
274
275	diff -u $work/ok $work/history.new
276	if test $? -ne 0; then fail; fi
277
278	activity="check the aegis baseline vs. darcs repository"
279	diff $work/darcs-repo/baz.txt $workproj/baseline/baz.txt
280	if test $? -ne 0; then fail; fi
281
282	diff $work/darcs-repo/dir/foo.txt $workproj/baseline/dir/foo.txt
283	if test $? -ne 0; then fail; fi
284
285	#
286	# add more darcs changes
287	#
288	cat > $work/darcs-repo/baz.txt <<EOF
289	A simple text file
290	wit some more text.
291	more text again!
292	ancora piu\` test
293	EOF
294	if test $? -ne 0; then no_result; fi
295
296	darcs remove dir/foo.txt --repodir=$work/darcs-repo > log 2>&1
297	if test $? -ne 0; then cat log; no_result; fi
298
299	activity="tag 1.0.0"
300	darcs tag 1.0.0 --repodir=$work/darcs-repo -A Nobody > log 2>&1
301	if test $? -ne 0; then cat log; no_result; fi
302
303	cat > $work/logfile <<EOF
304	fourth commit
305	This text is now
306	the description of the aegis change
307	splitted on multiple lines.
308	EOF
309	if test $? -ne 0; then no_result; fi
310
311	darcs record --repodir=$work/darcs-repo -a -A Nobody --ignore-time \
312	--logfile $work/logfile > log 2>&1
313	if test $? -ne 0; then cat log; no_result; fi
314
315	activity="run tailor again"
316	python $here/tailor -c $work/tailor.conf > log 2>&1
317	if test $? -ne 0; then cat log; fail; fi
318
319	#
320	# Check the aegis project history.
321	# fixme: there is a gap in the change number sequence (13 is missing)
322	# because currently the change corresponding to the tags is
323	# still created even if it cannot be completed because it's empty
324	#
325	activity="check aegis project history (again)"
326
327	cat > $work/ok <<EOF
328	1 10 initial commit
329	2 11 second commit
330	Name: "1.0.0"
331	3 12 third commit
332	4 14 fourth commit
333	EOF
334	if test $? -ne 0; then no_result; fi
335
336	aegis -list project_history -unformatted 2> log > history
337	if test $? -ne 0; then cat history; no_result; fi
338
339	awk -f $work/massage_history.awk < history > history.new
340	if test $? -ne 0; then no_result; fi
341
342	diff -u ok history.new
343	if test $? -ne 0; then fail; fi
344
345	activity="check change 14 attributes"
346	cat > $work/ok <<EOF
347	brief_description = "fourth commit";
348	description = "This text is now the description of the aegis change splitted on\n\\
349	multiple lines.";
350	cause = external_improvement;
351	test_exempt = true;
352	test_baseline_exempt = true;
353	regression_test_exempt = true;
354	architecture =
355	[
356	"unspecified",
357	];
358	copyright_years =
359	[
360	`date +%Y`,
361	];
362	EOF
363	if test $? -ne 0; then no_result; fi
364
365	aegis -ca -l 14 > $work/change_attr 2> log
366	if test $? -ne 0; then cat log; no_result; fi
367
368	diff ok change_attr
369	if test $? -ne 0; then fail; fi
370
371	#
372	# test the change content
373	#
374	activity="change 10 content"
375	cat > $work/ok <<EOF
376	config create 1 aegis.conf
377	source create 1 dir/foo.txt
378	EOF
379	if test $? -ne 0; then no_result; fi
380
381	aegis -list change_files -unf -c 10 > $work/out
382	if test $? -ne 0; then no_result; fi
383
384	diff -u $work/ok $work/out
385	if test $? -ne 0; then fail; fi
386
387	#
388	# Check the content of change 11 (second commit)
389	#
390	activity="check change 11 content"
391	cat > $work/ok <<EOF
392	source create 1 bar.txt
393	source modify 1 -> 2 dir/foo.txt
394	EOF
395	if test $? -ne 0; then no_result; fi
396
397	aegis -list change_files -unf -c 11 > $work/out
398	if test $? -ne 0; then no_result; fi
399
400	diff -u $work/ok $work/out
401	if test $? -ne 0; then fail; fi
402
403	#
404	# Check the content of change 12 (third commit)
405	#
406	# Note: we check the change fstate file to verify the rename
407	# operation, since the unformatted output lacks some details..
408	#
409	activity="check change 12 content"
410	cat > $work/ok <<EOF
411	src =
412	[
413	{
414	file_name = "bar.txt";
415	uuid = "UUID";
416	action = remove;
417	edit_origin =
418	{
419	revision = "1";
420	encoding = none;
421	};
422	usage = source;
423	move = "baz.txt";
424	},
425	{
426	file_name = "baz.txt";
427	uuid = "UUID";
428	action = create;
429	edit =
430	{
431	revision = "2";
432	encoding = none;
433	};
434	edit_origin =
435	{
436	revision = "1";
437	encoding = none;
438	};
439	usage = source;
440	move = "bar.txt";
441	},
442	{
443	file_name = "dir/foo.txt";
444	uuid = "UUID";
445	action = modify;
446	edit =
447	{
448	revision = "3";
449	encoding = none;
450	};
451	edit_origin =
452	{
453	revision = "2";
454	encoding = none;
455	};
456	usage = source;
457	},
458	];
459	EOF
460	if test $? -ne 0; then no_result; fi
461
462	check_it ok $workproj/info/change/0/012.fs
463
464	#
465	# Note: there is a gap in the change numbers sequence, the next should
466	# be 13, because the aegis target back-end needs to be improved
467	# in the case of changeset setting only a tag
468	#
469	activity="check change 14 content"
470	cat > $work/ok <<EOF
471	source modify 2 -> 3 baz.txt
472	source remove 3 dir/foo.txt
473	EOF
474	if test $? -ne 0; then no_result; fi
475
476	aegis -list change_files -unf -c 14 > $work/out
477	if test $? -ne 0; then no_result; fi
478
479	diff -u $work/ok $work/out
480	if test $? -ne 0; then fail; fi
481
482	#
483	# Check the content of the baseline
484	#
485	activity="check the baseline"
486	cat > $work/ok <<EOF
487	src =
488	[
489	{
490	file_name = "aegis.conf";
491	uuid = "UUID";
492	action = create;
493	edit =
494	{
495	revision = "1";
496	encoding = none;
497	};
498	edit_origin =
499	{
500	revision = "1";
501	encoding = none;
502	};
503	usage = config;
504	file_fp =
505	{
506	youngest = TIME;
507	oldest = TIME;
508	crypto = "GUNK";
509	};
510	diff_file_fp =
511	{
512	youngest = TIME;
513	oldest = TIME;
514	crypto = "GUNK";
515	};
516	},
517	{
518	file_name = "bar.txt";
519	uuid = "UUID";
520	action = remove;
521	edit =
522	{
523	revision = "1";
524	encoding = none;
525	};
526	edit_origin =
527	{
528	revision = "1";
529	encoding = none;
530	};
531	usage = source;
532	move = "baz.txt";
533	deleted_by = 12;
534	},
535	{
536	file_name = "baz.txt";
537	uuid = "UUID";
538	action = create;
539	edit =
540	{
541	revision = "3";
542	encoding = none;
543	};
544	edit_origin =
545	{
546	revision = "3";
547	encoding = none;
548	};
549	usage = source;
550	file_fp =
551	{
552	youngest = TIME;
553	oldest = TIME;
554	crypto = "GUNK";
555	};
556	diff_file_fp =
557	{
558	youngest = TIME;
559	oldest = TIME;
560	crypto = "GUNK";
561	};
562	move = "bar.txt";
563	},
564	{
565	file_name = "dir/foo.txt";
566	uuid = "UUID";
567	action = remove;
568	edit =
569	{
570	revision = "3";
571	encoding = none;
572	};
573	edit_origin =
574	{
575	revision = "3";
576	encoding = none;
577	};
578	usage = source;
579	diff_file_fp =
580	{
581	youngest = TIME;
582	oldest = TIME;
583	crypto = "GUNK";
584	};
585	deleted_by = 14;
586	},
587	];
588	EOF
589	if test $? -ne 0; then no_result; fi
590
591	check_it ok $workproj/info/trunk.fs
592
593	activity="check aegis.conf baseline copy"
594	cat > $work/ok <<'EOF'
595
596	build_command = "exit 0";
597	link_integration_directory = true;
598
599	history_get_command = "aesvt -check-out -edit ${quote $edit} "
600	"-history ${quote $history} -f ${quote $output}";
601	history_put_command = "aesvt -check-in -history ${quote $history} "
602	"-f ${quote $input}";
603	history_query_command = "aesvt -query -history ${quote $history}";
604	history_content_limitation = binary_capable;
605
606	diff_command = "set +e; $diff $orig $i > $out; test $$? -le 1";
607	merge_command =
608	"(diff3 -e $i $orig $mr \| sed -e '/^w$$/d' -e '/^q$$/d'; echo '1,$$p') "
609	"\| ed - $i > $out";
610	patch_diff_command =
611	"set +e; $diff -C0 -L $index -L $index $orig $i > $out; test $$? -le 1";
612
613	shell_safe_filenames = false;
614	EOF
615	if test $? -ne 0; then no_result; fi
616
617	diff ok $workproj/baseline/aegis.conf
618	if test $? -ne 0; then fail; fi
619
620	diff $work/darcs-repo/baz.txt $workproj/baseline/baz.txt
621	if test $? -ne 0; then fail; fi
622
623	pass

Note: See TracBrowser for help on using the repository browser.

Download in other formats: