← Back to branch summary

~ubuntu-branches/ubuntu/lucid/fpc/lucid-proposed

« back to all changes in this revision

Viewing changes to fpcsrc/tests/webtbs/tw9026.pp

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-10-09 23:29:00 UTC
  • mfrom: (4.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20081009232900-553f61m37jkp6upv
Tags: 2.2.2-4
http://bugs.debian.org/498882
[ Torsten Werner ]
* Update ABI version in fpc-depends automatically.
* Remove empty directories from binary package fpc-source.

[ Mazen Neifer ]
* Removed leading path when calling update-alternatives to remove a Linitian
  error.
* Fixed clean target.
* Improved description of packages. (Closes: #498882)

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/tests/webtbs/tw9026.pp
 
1
operator := (input:extended) output: string;
 
2
begin
 
3
   str(round(input),output);
 
4
end;
 
5
 
 
6
operator + (const s: string; input:extended) output: string;
 
7
begin
 
8
   str(round(input),output);
 
9
   output:=s+output;
 
10
end;
 
11
 
 
12
procedure test(a:string);
 
13
begin
 
14
   writeln(a);
 
15
   if (a <> 'help1') then
 
16
     halt(1);
 
17
end;
 
18
 
 
19
var
 
20
s: string;
 
21
begin
 
22
   s:='help';
 
23
   test('help'+1);
 
24
   test(s+1);
 
25
   test(s+1.2);
 
26
   test(s+extended(1.2));
 
27
   test(s+string(1.2));
 
28
end.