File: general.m

package info (click to toggle)
gnustep-base 1.31.1-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 26,580 kB
  • sloc: objc: 239,446; ansic: 36,519; cpp: 122; sh: 112; makefile: 100; xml: 32
file content (28 lines) | stat: -rw-r--r-- 715 bytes parent folder | download | duplicates (8)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#import <Foundation/Foundation.h>
#import "ObjectTesting.h"

int
main()
{
  NSGarbageCollector	*collector;
  NSZone		*z;

  collector = [NSGarbageCollector defaultCollector];
  if (collector == nil) return 0;

  START_SET("Garbage collection");

  PASS([collector zone] == NSDefaultMallocZone(),
    "collector zone is default")
  PASS([[NSObject new] zone] == NSDefaultMallocZone(),
    "object zone is default")
  PASS((z = NSCreateZone(1024, 128, YES)) == NSDefaultMallocZone(),
    "created zone is default")
  PASS((z = NSCreateZone(1024, 128, YES)) == NSDefaultMallocZone(),
    "created zone is default")
  PASS_RUNS(NSRecycleZone(z), "zone recycling works")

  END_SET("Garbage collection");

  return 0;
}